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************************  LN. ASM  **************************** 


INCLUDE  L3.MAC 


STACK  SEGMENT  'STACK' 
DB  1000  DUP  (?) 
STACK  ENDS 


STACK 


9f 

n 

•« 

tf 

«f 

■lw 


CONST  SEGMENT  'DATA'  PARA  PUBLIC 
PUBLIC  ENVIRON 
ENVIRON  DW  ? 

LOGO  DB  0FFH,59H,0>0,6,77,"n  ,  , 

DB  0FFH,59H,0,8,6,77,"n  , 

DB  OFFH, 59H, 0, 16, 6, 77, " n J  1  I" 

DB  OFFH, 35,11, "LINKNET" 

DB  OFFH, 31, 13, "VISUAL  SIMULATOR" 

DB  0FFH,59H,l,l,4,23,"nJ  H" 

DB  OFFH, 59H, 27 , 1, 4 , 23 , " n J  M 

DB  OFFH, 59H, 53 , 1, 4 , 23 , " n J 

DB  0FFH,59H,2,2,2,5,"nJ  -“I" 

DB  OFFH, 59H, 10 , 2 , 2 , 5 , " n  , 

DB  OFFH,  59H,  18, 2, 2, 5,  "  pi,  \\ 

DB  OFFH, 59H, 28 , 2 , 2 , 5 ,  " n  | 

DB  OFFH, 59H, 36 , 2 , 2 , 5 , "  n  J 
DB  OFFH,  59H,  44, 2,2,5,  "n,  .  . 

DB  OFFH, 59H, 54, 2, 2, 5,"  n  .  ,  1 

DB  OFFH,  59H,  62, 2, 2, 5,  "n,  , 

DB  OFFH, 59H, 70, 2, 2, 5,"  nJ 

DB  0FFH,59H,l,17,4,23,"nJ  , 

DB  0FFH,59H,27, 17,4,23,"  n, 

DB  OFFH,  59H,  53 , 17 , 4 , 23  ,  "  riJ 

DB  0FFH,59H,2,18,2,5,"nJ  77  \ 

DB  OFFH, 59H, 10 , 18 , 2 , 5 , " n J  ,  . 

DB  OFFH, 59H, 18 , 18 , 2 , 5, " n  | 

DB  OFFH, 59H, 28 , 18 , 2 , 5 , " n J  , 

DB  OFFH, 59H, 36 , 18 , 2 , 5, " n j 
DB  OFFH, 59H, 44, 18, 2, 5," n, 

DB  OFFH , 59H , 54 , 18 , 2 , 5 , " n  |  . 

DB  OFFH, 59H, 62 , 18 , 2 , 5, " n J  L— 

DB  OFFH, 59H, 70, 18 , 2 , 5, " n J 
DB  OFFH, 79, 25 
DB  ODH 

ROOT_CONTROL  DW  OFFSET  R00T_STACK_MESS1 
DW  OFFSET  R00T_STACK1 
DW  OFFSET  ROOT_S _ME SSI 
DW  OFFSET  R00T_S1 
DW  OFFSET  ROOT_S_MESS 1 
DW  OFFSET  ROOT_S 1 
DW  OOOH 
DW  34FH 
DW  400H 
DW  64FH 
DB  7 

DW  OFFSET  FUNCTION_CODE_STACK 


i: 

H 

H 

II 

If 

If 

It 

If 
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DW  OFFSET  EXTENDED_HELP_STACK 

DW  OFFSET  FUNCTION_CODE_STACK 

DW  OFFSET  EXTENDED_HELP_STACK 

DB  0 

DW  0 

DB  0 

DB  0 

DB  0 

DW  0 

DB  20 

DW  0 

DB  0FFH,50H,7,0FFH,60,3 
DB  20  DUP  (?) 

DB  OFFH, 79 ,  25 , ODH 

FUNCTION_CODE_STACK  DB  40  DUP  (?) 
EXTENDED_HELP_STACK  DB  40  DUP  (?) 

ROOT_STACK_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 0 
DB  "MAIN_MENU" , ODH 
DB  200  DUP  (?) 

R00T_STACK1  DB  1 
DB  OFH, 7 OH 

DW  OFFSET  R00T_STACKl+5 
DB  1,0, 0,8 
DW  0 

DW  OFFSET  R00T_S1 
DW  OFFSET  ROOT_S_MESSl 
DW  OFFSET  ROOT_S_HELPl 
DB  1,0, 0,0 
DW  4  DUP  (?) 

DB  1,0, 0,0 
DW  4  DUP  (?) 

DB  1,0, 0,0 
DW  4  DUP  (?) 

DB  1,0, 0,0 
DW  4  DUP  (?) 

DB  1,0, 0,0 
DW  4  DUP  (?) 

DB  1,0, 0,0 
DW  4  DUP  (?) 

DB  1,0, 0,0 
DW  4  DUP  (?) 

DB  1,0, 0,0 
DW  4  DUP  (?) 

ROOT_S_MES S 1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "LINK  NETWORK  DOS  EXIT", ODH 
ROOT_S_HE LP 1  DB  ODH, "$" 

ROOTS1  DB  4 
DB  OFH, 7 OH 
DW  OFFSET  ROOT_Sl+5 
DB  1,2, 0,3 
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DW  0 

DW  OFFSET  LINK_S 1 
DW  OFFSET  LINK_S_MESS 1 
DW  OFFSET  LINK_S_HELP1 
DB  1,2,5,11 
DW  0 

DW  OFFSET  NETWORK  SI 
DW  OFFSET  NETWORK- S_MES S 1 
DW  OFFSET  NETWORK_S_HELPl 
DB  1,2,13,15 
DW  8100H 

DW  OFFSET  DOS_HANDLER 
DW  ? 

DW  OFFSET  DOS_HELPl 
DB  1,2,17,20 
DW  4000H 

DW  OFFSET  EXIT_S 1 
DW  OFFSET  EXIT_MESS1 
DW  OFFSET  EXIT_HELP1 

EXIT_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 
DB  "NO  YES" 

DB  ODH 

EXIT_HELP1  DB  0DH,"$" 

EXIT_S1  DB  2 
DB  OFH, 70H 
DW  OFFSET  EXIT_Sl+5 
DB  1,2, 0,1 
DW  8200H 

DW  OFFSET  DUMMY_CALL 
DW  ? 

DW  OFFSET  N0_HELP1 
DB  1,2, 3, 5 
DW  8200H 

DW  OFFSET  EXIT_HANDLER 
DW  ? 

DW  OFFSET  YES_HELP1 

LINK_S_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  "CONFIGURATION  SIMULATE  POST-PROCESS ING_FILES  QUIT" 
DB  ODH 

LINK_S_HELP1  DB  0DH,"$" 

LINK_S1  DB  4 
DB  OFH, 7 OH 
DW  OFFSET  LINK_Sl+5 
DB  1,2,0,12 
DW  2000H 

DW  OFFSET  C0NFIG_S1 
DW  OFFSET  C0NFIG_S_MESS1 
DW  OFFSET  C0NFIG_S_HELP1 
DB  1,2,14,21 
DW  0 

DW  OFFSET  SIMUL_S1 
DW  OFFSET  SIMUL_S_MESS1 
DW  OFFSET  SIMUL  S  HELP1 
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DB  1,2,23,43 
DW  0 

DW  OFFSET  ANALY_S1 
DW  OFFSET  ANALY_MESS1 
DW  OFFSET  LINK_S_HELP1 
DB  1,2,45,48 
DW  8200H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

NETWORK_S_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  "CONFIGURATION  SIMULATE  POST-PROCESSING_FILES  QUIT" 
DB  ODH 

NETWORK_S 1  DB  4 
DB  OFH, 7 OH 

DW  OFFSET  NETWORK_S 1+5 
DB  1,2,0,12 
DW  2000H 

DW  OFFSET  NETC0N_S1 
DW  OFFSET  NETC0N_S_MESS1 
DW  OFFSET  NETC0N_S_HELP1 
DB  1,2,14,21 
DW  0 

DW  OFFSET  NET_SIMUL_S1 
DW  OFFSET  NET_S IMUL_S_MES S 1 
DW  OFFSET  NET_SIMUL_S_HELP1 
DB  1,2,23,43 
DW  1 

DW  OFFSET  ANALY_S2 
DW  OFFSET  ANALY_MES S 1 
DW  OFFSET  LINK_S_HELP1 
DB  1,2,45,48 
DW  8200H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 
NETW0RK_S_HELP1  DB  0DH,"$" 

C0NFIG_S_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "RETRIEVE  SAVE  EDIT  DOS  QUIT", ODH 
C0NFIG_S_HELP1  DW  OFFSET  CON_HELP 

DW  OFFSET  DI S PLA Y_CON 
DW  OFFSET  RECOVER  CON 
CON_HELP  DB  0DH,"$" 

C0NFIG_S1  DB  5 
DB  OFH, 7 OH 

DW  OFFSET  CONFIG_Sl+5 
DB  1,2, 0,7 
DW  8100H 

DW  OFFSET  R_CONFIG  SI 
DW  0 

DW  OFFSET  R_C0NFIG_S_HELP1 
DB  1,2,9,12 
DW  8100H 
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DW 

OFFSET 

S_C0NFIG_S1 

DW 

0 

DW 

OFFSET 

S  CONFIG  S  HELP1 

DB 

1,2,14, 

17 

DW 

0 

DW 

OFFSET 

E  CONFIG  SI 

DW 

OFFSET 

E  20NFIG  S  MESS1 

DW 

OFFSET 

E  CONFIG  S  HELP1 

DB 

1/2,19, 

21 

DW 

8100H 

DW 

OFFSET 

DOS_HANDLER 

DW 

-> 

• 

DW 

OFFSET 

DOS  HELP1 

DB 

1,2,23, 

26 

DW 

8300H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

m 

DW 

OFFSET 

QUIT  HELP1 

NETC0N_S_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "RETRIEVE  SAVE  EDIT  DOS  QUIT",0DH 
NETCON_S_HELPl  DW  OFFSET  NETCON_HE LP 

DW  OFFSET  DISPLAY_NETCON 
DW  OFFSET  RECOVER_NETCON 
NETCON_HELP  DB  ODHf"$" 

NETCON  SI  DB  5 


DB 

OFH, 7 OH 

DW 

OFFSET 

NETCON_S 1+5 

DB 

1/2, 0,7 

t 

DW 

8100H 

DW 

OFFSET 

R_NETC0N_S1 

DW 

0 

DW 

OFFSET 

R  NETCON  S  HELP1 

DB 

1,2,9,12 

DW 

8100H 

DW 

OFFSET 

S_NETC0N_S1 

DW 

0 

DW 

OFFSET 

S  NETCON  S  HELP1 

DB 

1/2,14, 

17 

DW 

0 

DW 

OFFSET 

E  NETCON  SI 

DW 

OFFSET 

E  NETCON  S  MESS1 

DW 

OFFSET 

E  NETCON  S  HELP1 

DB 

1/2,19, 

21 

DW 

8100H 

DW 

OFFSET 

DOS_HANDLER 

DW 

? 

DW 

OFFSET 

DOS  HELP1 

DB 

1,2,23, 

26 

DW 

8300H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

? 

DW 

OFFSET 

QUIT_HELP1 

SIMUL_S_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 
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DB  "RUN  QUIT" , ODH 
SIMUL_S_HELP1  DB  ODH,"$" 

SIMUL_S1  DB  2 
DB  OFH, 70H 
DW  OFFSET  SIMUL_Sl+5 
DB  1, 2,0,2 
DW  8100H 

DW  OFFSET  RUN_S1 
DW  0 

DW  OFFSET  RUN_HELP1 
DB  1,2, 4, 1 
DW  8300H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

NET_SIMUL_S_MESS1  DB  OFFH, 50H, OFH, OFFH, 0, 2 
DB  "RUN  OUTPUT_DISPLAY  QUIT" , ODH 
NET_SIMUL_S_HELP1  DB  0DH,"$" 

NET_S IMUL_S 1  DB  3 
DB  OFH, 7 OH 

DW  OFFSET  NET_S IMUL_S 1+5 
DB  1,2, 0,2 
DW  8101H 

DW  OFFSET  RUN_S1 
DW  0 

DW  OFFSET  RUN_HELP1 
DB  1,2,4,17 
DW  0 

DW  OFFSET  NET_OD_S 1 
DW  OFFSET  NET_OD_MESS 1 
DW  OFFSET  NET_0D_HELP1 
DB  1,2,19,22 
DW  8300H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

E_C0NFIG_S_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  "SOURCE  ENCODER  MODULATOR  TRANSMITTER_FILTER  CHANNEL" 
DB  OFFH  0  3 

DB  "RECEIVER_FILTER  DEMODULATOR  DECODER  QUIT" , ODH 

E__CONFIG_S_HELP  1  DB  0DH,"$" 

E_CONFIG_S 1  DB  9 
DB  OFH, 7 OH 

DW  OFFSET  E_CONFIG_S 1+5 
DB  1,2, 0,5 
DW  2000H 

DW  OFFSET  SOURCE_S 1 
DW  OFFSET  SOURCE_MESS 1 
DW  OFFSET  SOURCE_HELP 1 
DB  1,2,8,14 
DW  2000H 

DW  OFFSET  ENCODER  SI 
DW  OFFSET  ENC0DER~MESS1 
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DW  OFFSET  ENCODER_HELPl 
DB  1,2/16,24 
DW  2000H 

DW  OFFSET  MODULATOR_S 1 
DW  OFFSET  MODULATOR_MESS 1 
DW  OFFSET  MODULATOR_HELPl 
DB  1,2,28,45 
DW  2000H 

DW  OFFSET  CHANNEL_S_S1 
DW  OFFSET  CHANNEL_S_MESS 1 
DW  OFFSET  CHANNEL_S_HELP1 
DB  1,2,47,53 
DW  2000H 

DW  OFFSET  CHANNEL_S1 
DW  OFFSET  CHANNEL_MESS 1 
DW  OFFSET  CHANNE L__HE LP 1 
DB  1,3,0,14 
DW  2 08 OH 

DW  OFFSET  CHANNEL_S_S 1 
DW  OFFSET  CHANNEL_S_MESS 1 
DW  OFFSET  RECEIVER_HELP1 
DB  1,3,16,26 
DW  2000H 

DW  OFFSET  DEMODULATOR_S 1 
DW  OFFSET  DEMODULATOR_MESSl 
DW  OFFSET  DEMODULATOR_HELPl 
DB  1,3,28,34 
DW  2000H 

DW  OFFSET  DEC0DER_S1 
DW  OFFSET  DEC0DER_MESS1 
DW  OFFSET  DEC0DER_HELP1 
DB  1,3,38,41 
DW  8400H 

DW  OFFSET  QUIT_HANDLER 
DW  0 

DW  OFFSET  QUIT_HELP1 

E_NETC0N_S_MESS1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  " STORE_AND_FORWARD  MULTIPLE_ACCESS  QUIT",0DH 
E_NETCOH_S 1  DB  3 
DB  0FH,70H 

DW  OFFSET  E_NETCON_S 1+5 
DB  1,2,0,16 
DW  2010H 
DW  OFFSET  SAF_S1 
DW  OFFSET  SAF_MESS 1 
DW  OFFSET  SAF_HELP1 
DB  1,2,18,32 
DW  2 02 OH 
DW  OFFSET  MA_S1 
DW  OFFSET  MA_MESS1 
DW  OFFSET  MA  HELP1 
DB  1,2,34, 37_ 

DW  8400H 

DW  OFFSET  QUIT_HANDLER 
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DW  0 

DW  OFFSET  QUIT_HELP1 

SOURCE_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  "RANDOM_BIT_STREAM  SINUSOID  QUIT",ODH 
S0URCE_HELP1  DW  OFFSET  SOURCE_HELP 

DW  OFFSET  SOURCE_POINTER 
DW  OFFSET  RECOVER_S OURCE 
SOURCE_HELP  DB  0DH,"$" 

S0URCE_S1  DB  3 
DB  OFH, 7 OH 

DW  OFFSET  SOURCE_S 1+5 
DB  1,2,0,16 
DW  8201H 

DW  OFFSET  SOURCE_SET 
DW  0 

DW  OFFSET  RBS_HELP1 
DB  1,2,18,25 
DW  2 

DW  OFFSET  SINU_S1 
DW  OFFSET  SINU_MESS1 
DW  OFFSET  SINU_HELP1 
DB  1,2,27,30 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

ENCODER_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  "CONVOLUTIONAL  REED_SOLOMON  NONE  QUIT",0DH 
ENC0DER_HELP1  DW  OFFSET  ENCODER_HELP 

DW  OFFSET  ENCODER_POINTER 
DW  OFFSET  RECOVER_ENCODER 
ENCODER_HELP  DB  0DH,"$" 

ENCODER  SI  DB  4 


DB 

OFH, 7 OH 

DW 

OFFSET 

ENCODER  Sl+5 

DB 

1,2,0,12 

DW 

2 

DW 

OFFSET 

CC  SI 

DW 

OFFSET 

CC  MESS1 

DW 

OFFSET 

CC  HELP1 

DB 

1,2,14, 

25 

DW 

5 

DW 

OFFSET 

RS  SI 

DW 

OFFSET 

RS  MESS1 

DW 

OFFSET 

RS  HELP1 

DB 

1,2,27, 

30 

DW 

8201H 

DW 

OFFSET 

ENCODER_SET 

DW 

0 

DW 

OFFSET 

NONE  EC  HELP1 

DB 

1,2,32, 

35 

DW 

8500H 

DW 

OFFSET 

QUIT_HANDLER 
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DW  ? 

DW  OFFSET  QUIT_HELP1 

MODULATOR_MES S 1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "PSK  QAM  FSK  NONE  QUIT", ODH 
MODULATOR_HELPl  DW  OFFSET  MODULATOR_HE LP 

DW  OFFSET  MODULATOR_POINTER 
DW  OFFSET  RECOVER_MODULATOR 
MODULATOR_HELP  DB  ODH, "$" 

MODULATOR  SI  DB  5 


DB 

OFH, 70H 

DW 

OFFSET 

MODULATOR_S 1+5 

DB 

1,2, 0,2 

DW 

1 

DW 

OFFSET 

PSK  SI 

DW 

OFFSET 

PSK  MESS1 

DW 

OFFSET 

PSK  HELP1 

DB 

1,2, 4, 6 

DW 

4 

DW 

OFFSET 

QAM  SI 

DW 

OFFSET 

QAM  MESS1 

DW 

OFFSET 

QAM  HELP1 

DB 

1,2,8,10 

DW 

6 

DW 

OFFSET 

FSK  SI 

DW 

OFFSET 

FSK  MESS1 

DW 

OFFSET 

FSK  HELP1 

DB 

1,2,12, 

15 

DW 

8209H 

DW 

OFFSET 

MODULATOR_SET 

DW 

DW 

OFFSET 

QUIT  HELP1 

DB 

1,2,17, 

20 

DW 

8500H 

DW 

OFFSET 

QU I T_HAN D LER 

DW 

7 

DW 

OFFSET 

QUIT_HELP1 

CHANNEL_S_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  "BUTTERWORTH  CHEBYCHEV  ELLIPTIC  FIR  NONE  QUIT" 
DB  ODH 

CHANNEL_S_HELP1  DW  OFFSET  CHANNEL_S_HELP 

DW  OFFSET  CHANNEL_S_PO INTER 
DW  OFFSET  RECOVER_CHANNEL_S 
CHANNEL_S_HELP  DB  0DH,"$" 

RECEIVER_HELP1  DW  OFFSET  RECEIVER_HELP 

DW  OFFSET  RECEIVER_POINTER 
DW  OFFSET  RECOVER_RECEIVER 
RECEIVER_HELP  DB  0DH,"$" 

CHANNEL_S_S 1  DB  6 
DB  OFH, 7 OH 

DW  OFFSET  CHANNEL_S_Sl+5 
DB  1,2,0,10 
DW  2003H 
DW  OFFSET  BW  SI 
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DW  OFFSET  BW_MESS1 
DW  OFFSET  BW_HELP1 
DB  1,2,12,20 
OH  2004H 
DW  OFFSET  BW_S1 
DW  OFFSET  BW_MESS1 
DW  OFFSET  BW_HELP1 
DB  1,2,22,29 
DW  2005H 
DW  OFFSET  BW_S2 
DW  OFFSET  BW_MESS2 
DW  OFFSET  BW_HELP1 
DB  1,2,31,33 
DW  2006H 
DW  OFFSET  FIR_S 1 
DW  OFFSET  FIR_MESS1 
DW  OFFSET  FIR_HELP1 
DB  1,2,35,38 
DW  8201H 

DW  OFFSET  FILTER_SET 
DW  0 

DW  OFFSET  N0NE_CS_HELP1 
DB  1,2,40,43 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

CHANNEL_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  "WHITE_GAUSSIAN_NOISE  PROPAGATION_MODEL  BSC  NONE  QUIT" , ODH 
CHANNEL_HELP1  DW  OFFSET  CHANNEL_HELI 

DW  OFFSET  CHANNEL_PO INTER 
DW  OFFSET  RECOVER_CHANNEL 
CHANNEL_HELP  DB  0DH,"$" 

CHANNEL_S1  DB  5 
DB  OFH, 7 OH 

DW  OFFSET  CHANNEL_S 1+5 
DB  1,2,0,19 
DW  8202H 

DW  OFFSET  CHANNEL_SET 
DW  0 

DW  OFFSET  WGNC_HELP1 
DB  1,2,21,37 
DW  2000H 
DW  OFFSET  PM_S1 
DW  OFFSET  PM_MESS 
DW  OFFSET  PM_HELP1 
DB  1,2,39,41 
DW  8203H 

DW  OFFSET  CHANNEL_SET 
DW  0 

DW  OFFSET  BSC_HELP1 
DB  1,2,43,46 
DW  8201H 

DW  OFFSET  CHANNEL  SET 
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DW  0 

DW  OFFSET  NONE_C_HE LP 1 
DB  12, 48 ,51 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

PM_MESS  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  "TRANSMITTER  RECEIVER  CARRIER_FREQUENCY  DISTANCE  AREA_TYPE" 
DB  OFFH, 0,3 

DB  " FOLI AGE_CHARACTERI STI C  QUIT" 

DB  ODH 

PM_HELP1  DW  OFFSET  PM_HELP 

DW  OFFSET  PM_DISPLAY 
DW  OFFSET  DUMMY_CALL 
PM_HELP  DB  ODH, "$" 

PM_S1  DB  7 
DB  OFH, 7 OH 
DW  OFFSET  PM_Sl+5 
DB  1,2,0,10 
DW  0 

DW  OFFSET  TX_S1 
DW  OFFSET  TX_MESS1 
DW  OFFSET  BW_HELP 
DB  1,2,12,19 
DW  0 

DW  OFFSET  RX_S1 
DW  OFFSET  RXMESS 1 
DW  OFFSET  BW_HELP 
DB  1,2,21,37 
DW  8100H 
DW  OFFSET  PM_CF 
DW  0 

DW  OFFSET  BW_HELP 
DB  1,2,39,46 
DW  8100H 
DW  OFFSET  PM_DS 
DW  0 

DW  OFFSET  FIRJHELP 
DB  1,2,48,56 
DW  0 

DW  OFFSET  AREA_S1 
DW  OFFSET  AREA_MESS 
DW  OFFSET  N0NE_CS_HELP1 
DB  1,3,0,21 
DW  0 

DW  OFFSET  FC_S1 
DW  OFFSET  FC_MESS 
DW  OFFSET  QUIT_HELP1 
DB  1,3,23,26 
DW  8100H 

DW  OFFSET  QUIT_HANDLER 
DW  0 

DW  OFFSET  QUIT_HELP1 
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TX_MESS1  DB  0FFH,50H,0FH,0FFH,0,2 

DB  "ANTENNA_HEIGHT  ANTENNA_GAIN  POWER  QUIT" 

OB  ODH 
TX_S1  DB  4 
DB  OFH, 7 OH 
DW  OFFSET  TX_Sl+5 
DB  1,2,0,13 
DW  8100H 

DW  OFFSET  PM_AT  H_T 
DW  0 

DW  OFFSET  BW_HELP 
DB  1,2,15,26 
DW  8100H 

DW  OFFSET  PM_AT_G_T 
DW  0 

DW  OFFSET  BW_HELP 
DB  1,2,28,32 
DW  8100H 

DW  OFFSET  PM_POWER 
DW  0 

DW  OFFSET  BW_HELP 
DB  1,2,34,37 
DW  8100H 

DW  OFFSET  QUIT_HANDLER 
DW  0 

DW  OFFSET  FIR_HELP 

RX_MESS1  DB  OFFH, 50H, OFH, OFFH, 0,2 

DB  " ANTENNA__HE I GHT  ANTENNA_GAIN  NOISE_POWER  BANDWIDTH  " 
DB  "QUIT" 

DB  ODH 
RX_S1  DB  5 
DB  OFH, 7 OH 
DW  OFFSET  RX_Sl+5 
DB  1,2,0,13 
DW  8100H 

DW  OFFSET  PM_AT_H_R 
DW  0 

DW  OFFSET  BW_HELP 
DB  1,2,15,26 
DW  8100H 

DW  OFFSET  PM_AT_G_R 
DW  0 

DW  OFFSET  BW_HELP 
DB  1,2,28,38 
DW  8100H 

DW  OFFSET  PM_NOISE 
DW  0 

DW  OFFSET  BW_HELP 
DB  1,2,40,48 
DW  8100H 

DW  OFFSET  PM_BAN DW I DTH 
DW  0 

DW  OFFSET  BW  HELP 
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DB  1,2,50,53 
DW  8100H 

DW  OFFSET  QUIT_HANDLER 
DW  0 

DW  OFFSET  FIR_HELP 

AREA_MESS  DB  OFFH , 50H , OFH , OFFH ,0,2 
DB  "OPEN  SUBURBAN  QUIT" 

DB  ODH 

AREA  SI  DB  3 


DB 

OFH, 7 OH 

DW 

OFFSET 

AREA_Sl+5 

DB 

1,2, 0,3 

DW 

8200H 

DW 

OFFSET 

PM_AREA 

DW 

0 

DW 

OFFSET 

BW  HELP 

DB 

1,2,5,12 

DW 

8201H 

DW 

OFFSET 

PM_AREA 

DW 

0 

DW 

OFFSET 

BW  HELP 

DB 

1,2,14, 

17 

DW 

8100H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

0 

DW 

OFFSET 

FIR  HELP 

FC_MESS  DB  OFFH, 50H, OFH, OFFH, 0,2 
DB  "NO_FOLIAGE  FOLIAGED  QUIT" 
DB  ODH 
FC  SI  DB  3 


DB 

OFH , 70H 

DW 

OFFSET 

FC_ 

Sl+5 

DB 

1,2, 0,9 

DW 

8200H 

DW 

OFFSET 

PM_ 

FOLIAGE 

DW 

0 

DW 

OFFSET 

BW 

_HELP 

DB 

1,2,11, 

18“ 

DW 

8202H 

DW 

OFFSET 

PM_ 

FOLIAGE 

DW 

0 

DW 

OFFSET 

BW 

_HELP 

DB 

1,2,20, 

23" 

DW 

8100H 

DW 

OFFSET 

QUIT  HANDLER 

DW 

0 

DW 

OFFSET 

FIR  HELP 

DEMODULATOR_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 
DB  "SOFT  HARD  NONE  QUIT", ODH 
DEMODULATOR_HELPl  DW  OFFSET  DEMODULATOR_HELP 

DW  OFFSET  DEMODULATOR_POINTER 
DW  OFFSET  RECOVER  DEMODULATOR 
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DEMODULATOR  HELP  DB  ODH, "$" 

DEMODULATOR'S 1  DB  4 
DB  0FH,70H 

DW  OFFSET  DEMODULATOR_S 1+5 
DB  1,2, 0,3 
DW  8201H 

DW  OFFSET  DEMO DULATOR_S ET 
DW  0 

DW  OFFSET  SOFT_HELPl 
DB  1,2, 5, 8 
DW  8202H 

DW  OFFSET  DEMODULATOR_SET 
DW  0 

DW  OFFSET  HARD_HELP1 
DB  1,2,10,13 
DW  8203H 

DW  OFFSET  DEMODULATOR_SET 
DW  ? 

DW  OFFSET  QUIT_HELP1 
DB  1,2,15,18 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

DECODER_MESS 1  DB  OFFH , 50H , OFH , OFFH ,0,2 

DB  "CONVOLUTIONAL  REED_SOLOMON  NONE  QUIT" , ODH 
DEC0DER_HELP1  DW  OFFSET  DECODER_HELP 

DW  OFFSET  DECODER_PO INTER 
DW  OFFSET  RECOVER_DECODER 
DECODER_HELP  DB  0DH,"$" 

DECODER  SI  DB  4 


DB 

OFH, 70H 

DW 

OFFSET 

DECODER  Sl+5 

DB 

1,2,0,12 

DW 

2 

DW 

OFFSET 

CCD  SI 

DW 

OFFSET 

CCD  MESS1 

DW 

OFFSET 

CCD  HELP1 

DB 

1,2,14, 

25 

DW 

8204H 

DW 

OFFSET 

DECODER_S  ET 

DW 

0 

DW 

OFFSET 

RSD  HELP1 

DB 

1,2,27, 

30 

DW 

8201H 

DW 

OFFSET 

DECODER_SET 

DW 

0 

DW 

OFFSET 

NONED  HELP1 

DB 

1,2,32, 

35 

DW 

8500H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

? 

DW 

OFFSET 

QUIT_HELP1 
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SAF_MESS 1  DB  OFFH ,  50H , OFH , OFFH ,0,2 

DB  "TOPOLOGY  NUMBER_OF_NODES  INPUT_TRAFFIC_MATRIX  " 
DB  "REAL_TIME_ANIMATION  QUIT" , ODH 
SAF_HELP1  DW  OFFSET  SAF_HELP 

DW  OFFSET  S ET_NET_CON 
DW  OFFSET  DUMMY_CALL 
SAF_HELP  DB  ODH, "$" 

SAF_S1  DB  5 
DB  OFH, 7 OH 
DW  OFFSET  SAF_Sl+5 
DB  1,2, 0,7 
DW  0 

DW  OFFSET  S AFT_S 1 
DW  OFFSET  SAFT  MESS1 
DW  OFFSET  SAFT__HELP1 
DB  1,2,9,23 
DW  8100H 

DW  OFFSET  NON_SET 
DW  0 

DW  OFFSET  NON_HELPl 
DB  1,2,25,44 
DW  8100H 

DW  OFFSET  ITM_SET 
DW  0 

DW  OFFSET  ITM_HELP1 
DB  1,2,46,64 
DW  0 

DW  OFFSET  REAL_TIME_S 1 
DW  OFFSET  REAL_TIME_MESS 1 
DW  OFFSET  REAL_TIME_HELP1 
DB  1,2,66,69 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

SAFT_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "STAR  LOOP  QUIT" , ODH 
SAFT_HELP1  DB  0DH,"$" 

SAFT_S1  DB  3 
DB  OFH, 70H 
DW  OFFSET  SAFT_Sl+5 
DB  1,2, 0,3 
DW  2001H 
DW  OFFSET  LC_S1 
DW  OFFSET  LC_MESS1 
DW  OFFSET  STAR_HELP1 
DB  1,2, 5, 8 
DW  0 

DW  OFFSET  LOOP_Sl 
DW  OFFSET  LOOP_MESSl 
DW  OFFSET  LOOP  HELP1 
DB  1,2,10,13 
DW  8500H 

DW  OFFSET  QUIT  HANDLER 
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DW  ? 

DW  OFFSET  QUIT_HELP1 

LOOP_MESSl  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  "UNI DIRE CTIONAL_LOOP  BIDIRECTIONAL_LOOP  QUIT",ODH 
LOOP_HELPl  DB  ODH,"$" 

LOOP_Sl  DB  3 
DB  OFH, 7 OH 
DW  OFFSET  LOOP_Sl+5 
DB  1,2,0,18 
DW  2002H 
DW  OFFSET  LC_S2 
DW  OFFSET  LC_MESS1 
DW  OFFSET  UD_LOOP_HELPl 
DB  1,2,20,37 
DW  2003H 
DW  OFFSET  LC_S2 
DW  OFFSET  LC_MESS 1 
DW  OFFSET  BD_LOOP_HELPl 
DB  1,2,39,42 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

LC_MESS1  DB  OFFH, 50H,0FH, OFFH, 0,2 
DB  "LINK_CAPACITIES  QUIT" , ODH 
LC_S1  DB  2 
DB  OFH, 70H 
DW  OFFSET  LC_Sl+5 
DB  1,2,0,14 
DW  8300H 

DW  OFFSET  LC_SET 
DW  0 

DW  OFFSET  LC_HELP1 
DB  1,2,16,19 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 
LC_S2  DB  2 
DB  OFH, 7 OH 
DW  OFFSET  LCJ32+5 
DB  1,2,0,14 
DW  8400H 

DW  OFFSET  LC_SET 
DW  0 

DW  OFFSET  LC_HELP1 
DB  1,2,16,19 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

REAL_TIME_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 
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DB  "ON  OFF  QUIT" , ODH 
REAL_TIME_HELP1  DB  ODH,"$" 

REAL_TIME_S 1  DB  3 
DB  OFH, 7 OH 

DW  OFFSET  REAL  TIME_Sl+5 
DB  1,2, 0,1 
DW  8201H 

DW  OFFSET  REAL_TIME_SET 
DW  0 

DW  OFFSET  SPJHELP1 
DB  1,2, 3, 5 
DW  8200H 

DW  OFFSET  REAL_TIME_SET 
DW  0 

DW  OFFSET  RR_HELP1 
DB  1,2,7,10 
DW  8600H 

DW  OFFSET  QUIT__HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

MA_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  "PROTOCOL  USER_POPULATION  NUMBER_OF_CHANNELS  " 
DB  "INPUT_TRAFFIC_RATE" 

DB  OFFH, 0,3, " REAL_T I ME_AN I MAT ION  QUIT" , ODH 
MA_HELP1  DW  OFFSET  MA_HELP 

DW  OFFSET  SET_NET_CON 
DW  OFFSET  DUMMY_CALL 
MA_HELP  DB  0DH,"$" 

MA  SI  DB  6 


DB 

OFH, 7 OH 

DW 

OFFSET 

MA_Sl+5 

DB 

1,2, 0,7 

DW 

0 

DW 

OFFSET 

PRO  SI 

DW 

OFFSET 

PRO  S  MESS1 

DW 

OFFSET 

PRO  S  HELP1 

DB 

1,2,9,23 

DW 

8100H 

DW 

OFFSET 

UP_SET 

DW 

0 

DW 

OFFSET 

UP  HELP1 

DB 

1,2,25, 

42 

DW 

8100H 

DW 

OFFSET 

NOC_SET 

DW 

•? 

• 

DW 

OFFSET 

NOC  HELP1 

DB 

1,2,44, 

61 

DW 

8100H 

DW 

OFFSET 

ITM_SET1 

DW 

■7 

• 

DW 

OFFSET 

ITR  HELP1 

DB 

1,3,0,18 

DW 

0 

DW 

OFFSET 

REAL  TIME  SI 
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DW  OFFSET  REAL  TIME_MESS1 
DW  OFFSET  REAL- TIME_HELP1 
DB  1,3,20,23 
DW  8500H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

PRO_S_MESSl  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "ALOHA  TREE  CSMA  QUIT",0DH 
PR0_S_HELP1  DB  0DH,"$" 

PR0_S1  DB  3 
DB  OFH, 7 OH 
DW  OFFSET  PRO_Sl+5 
DB  1,2, 0,4 
DW  2001H 

DW  OFFSET  ALOHA_S 1 
DW  OFFSET  ALOHA_MESS 1 
DW  OFFSET  AL0HA_HELP1 
DB  1,2, 6, 9 
DW  8202H 

DW  OFFSET  MA_PRO_SET 
DW  0 

DW  OFFSET  TCR_HELP1 
DB  1,2,11,14 
DW  2003H 

DW  OFFSET  CSMA_S1 
DW  OFFSET  CSMA_MESS1 
DW  OFFSET  CSMA_HELP1 
DB  1,2,16,19 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT__HELP1 

ALOHA_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "MAXIMUM_BACKOFF_DELAY  QUIT",0DH 
AL0HA_HELP1  DW  OFFSET  MA_HELP 

DW  OFFSET  MA_PRO_SET 
DW  OFFSET  DUMMY_CALL 
ALOHA_S 1  DB  2 
DB  OFH, 7 OH 

DW  OFFSET  ALOHA_Sl+5 
DB  1,2,0,20 
DW  8300H 

DW  OFFSET  AMBD_S1 
DW  0 

DW  OFFSET  MA_HELP 
DB  1,2,22,25 
DW  8600H 

DW  OFFSET  QUIT  HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 
CSMA_MESS1  DB  OFFH, 50H, OFH, OFFH, 0, 2 
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DB  "MAXIMUM_BACKOFF_DELAY  PRO  PAG AT I ON_RAT 1 0  QUIT" , ODH 
CSMA_HELP1  DW  OFFSET  MA_HELP 

DW  OFFSET  MA_PRO  SET 
DW  OFFSET  DUHMY_CALL 

CSMA_S 1  DB  3 
DB  OFH, 7 OH 
DW  OFFSET  CSMA_Sl+5 
DB  1,2,0,20 
DW  8100H 

DW  OFFSET  AMBD_S1 
DW  0 

DW  OFFSET  MA_HELP 
DB  1,2,22,38 
DW  8101H 

DW  OFFSET  AHBD_S1 
DW  0 

DW  OFFSET  MA_HELP 
DB  1,2,40,43 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

SINU_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  M S INUSOI D_FREQUENC Y  SAMPLING_FREQUENCY  QUIT", ODH 
SINU_HELP1  DB  0DH,"$" 

SINU_S1  DB  3 
DB  OFH, 7 OH 
DW  OFFSET  SINU_Sl+5 
DB  1,2,0,17 
DW  8100H 

DW  OFFSET  SOURCE_SET 
DW  0 

DW  OFFSET  SINU_F_HELP1 
DB  1,2,19,36 
DW  8110H 

DW  OFFSET  SOUBCE_SET 
DW  0 

DW  OFFSET  SINU_A_HELP1 
DB  1,2,38,41 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

CC_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0,2 

DB  "  (  r=l/2 ,  K=3 )  __BINARY  (r=l/2  ,  K=7)  _BINARY  QUIT",  ODH 
CC__HELP1  DB  ODH,  "$" 

CC_S1  DB  3 
DB  OFH, 7 OH 
DW  OFFSET  CC_Sl+5 
DB  1,2,0,17 
DW  8300H 

DW  OFFSET  ENCODER_SET 
DW  0 
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DW  OFFSET  CCR2K3_HELP1 
DB  1,2,19,36 
DW  8301H 

DW  OFFSET  ENCODER_SET 
DW  0 

DW  OFFSET  CCR2K7_HELP1 
DB  1,2,38,41 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

RS_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "(15,9)  QUIT" , ODH 
RS_HELP1  DB  ODH,"$" 

RS_S1  DB  2 
DB  OFH, 70H 
DW  OFFSET  RS_Sl+5 
DB  1,2, 0,5 
DW  8300H 

DW  OFFSET  ENCODER_SET 
DW  0 

DW  OFFSET  RS15_9_HELP1 
DB  1,2,7,10 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

CCD_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  "SOFT_DECISION_VITERBI  HARD_DECISION_VITERBI  QUIT" , ODH 
CCD_HELP1  DB  0DH,"$" 

CCD  SI  DB  3 


DB 

OFH, 7 OH 

DW 

OFFSET 

CCD  Sl+5 

DB 

1,2,0,20 

DW 

8300H 

DW 

OFFSET 

DECODERJ5ET 

DW 

0 

DW 

OFFSET 

CCD  SV  HELP1 

DB 

1,2,22, 

42 

DW 

8301H 

DW 

OFFSET 

DECODER_SET 

DW 

0 

DW 

OFFSET 

CCD  HV  HELP1 

DB 

1,2,44, 

47 

DW 

8600H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

? 

DW 

OFFSET 

QUIT_HELP1 

BW_MESS1  DB  OFFH, 50H, OFH, OFFH, 0,2 

DB  "BY_ORDER  BY_ATTENUATION  QUIT", ODH 
BW_HELP1  DW  OFFSET  BW_HELP 
DW  OFFSET  BW  SET 
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DW  OFFSET  DUMMY_CALL 
BW_HELP  DB  ODH, "$" 

BW  SI  DB  3 


DB 

OFH, 7 OH 

DW 

OFFSET 

BW  Sl+5 

DB 

1 , 2 , 0 , 7 

DW 

2000H 

DW 

OFFSET 

ORDER  SI 

DW 

OFFSET 

ORDER  MESS1 

DW 

OFFSET 

ORDER  HELP1 

DB 

1,2,9,22 

DW 

2040H 

DW 

OFFSET 

ATTN 

SI 

DW 

OFFSET 

ATTN" 

"messi 

DW 

OFFSET 

ATTN 

_HELP1 

DB 

1,2,24, 

27 

DW 

8600H 

DW 

OFFSET 

QUIT, 

HANDLER 

DW 

• 

DW 

OFFSET 

QUIT, 

HELP1 

BW_MESS2  DB  OFFH, 50H, OFH, OFFH, 0,2 
DB  " BY_ATTENUATION  QUIT" , ODH 
BW_S2  DB  2 
DB  OFH, 7 OH 
DW  OFFSET  BW_S2+5 
DB  1,2,0,13 
DW  2  04  OH 

DW  OFFSET  ATTN_S1 
DW  OFFSET  ATTN_MESS1 
DW  OFFSET  ATTN_HELP1 
DB  1,2,15,18 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

FIR_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  " BY_ATTENUATION  BY_COEFFICIENTS  SAVE_FIR  RETRIEVE_FIR  " 
DB  "DOS  QUIT", ODH 
FIRJHELP1  DW  OFFSET  FIR_HELP 
DW  OFFSET  BW_SET 
DW  OFFSET  DUMMY_CALL 
FIR_HELP  DB  0DH,"$" 

FIR_S 1  DB  6 
DB  OFH, 7 OH 
DW  OFFSET  FIR_Sl+5 
DB  1,2,0,13 
DW  2 04 OH 

DW  OFFSET  ATTN_S1 
DW  OFFSET  ATTN_MESS1 
DW  OFFSET  ATTN_HELP1 
DB  1,2,15,29 
DW  2000H 

DW  OFFSET  COEF  SI 
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DW  OFFSET  COEF_MESSl 
DW  OFFSET  COEF_HELPl 
DB  1,2,31,38 
DW  8100H 

DW  OFFSET  FIR_SAVE1 
DW  ? 

DW  OFFSET  FIR_S_HELP1 
DB  1,2,40,51 
DW  8100H 

DW  OFFSET  FIR_RETRIEVE1 
DW  ? 

DW  OFFSET  FIR_R_HELP1 
DB  1,2,53,55 
DW  8100H 

DW  OFFSET  DOS_HANDLER 
DW  ? 

DW  OFFSET  DOS_HELPl 
DB  1,2,57,60 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

IIR_HELP1  DB  0DH,"$" 

PSK_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0,2 

DB  "BPSK  TIME_DOMAIN_BPSK  QPSK  8-PSK  QUIT" , ODH 
PSK_HELP1  DB  0DH,"$" 

PSK_S1  DB  5 
DB  OFH, 7 OH 
DW  OFFSET  PSK_Sl+5 
DB  1,2, 0,3 
DW  8300H 

DW  OFFSET  MODULATOR_S ET 
DW  0 

DW  OFFSET  BPSK_HELP1 
DB  1,2,5,20 
DW  8309H 

DW  OFFSET  MODULATOR_SET 
DW  0 

DW  OFFSET  BPSK_HELP1 
DB  1,2,22,25 
DW  8301H 

DW  OFFSET  MODULATOR_SET 
DW  0 

DW  OFFSET  QPSK_HELP1 
DB  1,2,27,31 
DW  8302H 

DW  OFFSET  MODULATOR_SET 
DW  0 

DW  OFFSET  PSK8_HELP1 
DB  1,2,33,36 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 
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DW  OFFSET  QUIT_HELP1 

QAM_MESS1  DB  OFFH ,  50H , OFH , OFFH ,0,2 
DB  "16-QAM  6 4 -QAM  QUIT", ODH 
QAM_HELP1  DB  ODH, "$" 

QAM_S1  DB  3 
DB  OFH, 7 OH 
DW  OFFSET  QAM_Sl+5 
DB  1 , 2 , 0 , 5 
DW  8300H 

DW  OFFSET  MODULATOR_SET 
DW  0 

DW  OFFSET  QAM16_HELP1 
DB  1,2,7,12 
DW  8301H 

DW  OFFSET  MODULATOR_SET 
DW  0 

DW  OFFSET  QAM64_HELP1 
DB  1,2,14,17 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

FSK_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "BFSK  4-FSK  QUIT" , ODH 
FSK_HELP1  DB  0DH,"$" 

FSK_S1  DB  4 
DB  OFH, 7 OH 
DW  OFFSET  FSK_Sl+5 
DB  1,2, 0,3 
DW  8300H 

DW  OFFSET  MODULATOR_SET 
DW  0 

DW  OFFSET  BFSK_HELP1 
DB  1,2, 5,9 
DW  8301H 

DW  OFFSET  MODULATOR_SET 
DW  0 

DW  OFFSET  QFSK_HELP1 
DB  1,2,11,14 
DW  8600H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

ATTN_MESS1  DB  OFFH, 50H, OFH, OFFH, 0, 2 

DB  " S AMPLI NG_FREQUEN C Y  PASSBAND_EDGE_FREQUENCY  " 

DB  "STOPBAND_EDGE_FREQUENCY" 

DB  OFFH, 0,3 

DB  "PASSBAND_ATTENUATION  STOPBAND_ATTENUATION  QUIT", ODH 
ATTN_HELP1  DW  OFFSET  ATTN_HELP 
DW  OFFSET  ORDER_SET 
DW  OFFSET  DUMMY_CALL 
ATTN_HELP  DB  0DH,"$" 
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ATTN  SI  DB  6 


DB 

OFH, 7 OH 

DW 

OFFSET 

ATTN  Sl+5 

DB 

1,2,0,17 

DW 

8100H 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

SF  HELP1 

DB 

1,2,19, 

41 

DW 

8110H 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

CF  HELP1 

DB 

1,2,43, 

65 

DW 

8118H 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

PA  HELP1 

DB 

1,3,0,19 

DW 

8 12  OH 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

SA  HELP1 

DB 

1,3,21, 

40 

DW 

8130H 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

SA  HELP1 

DB 

1,3,42, 

45 

DW 

8000H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

DW 

OFFSET 

QUIT  HELP1 

0RDER_MESS1  DB  OFFH, 50H, OFH, OFFH, 0,2 

DB  "ORDER  SAMPLING_FREQUENCY  CUTOFF_FREQUENCY  QUIT",ODH 
0RDER_HELP1  DW  OFFSET  ORDER_HELP 
DW  OFFSET  ORDER_SET 
DW  OFFSET  DUMMY_CALL 
ORDER_HELP  DB  ODH, "$" 

ORDER_S 1  DB  5 
DB  OFH, 7 OH 

DW  OFFSET  ORDER_Sl+5 
DB  1,2, 0,4 
DW  8100H 

DW  OFFSET  FILTER_SET 
DW  0 

DW  OFFSET  0RDER2_HELP1 
DB  1,2,6,23 
DW  8110H 

DW  OFFSET  FILTER_SET 
DW  0 

DW  OFFSET  SF0_HELP1 
DB  1,2,25,40 
DW  8 12  OH 
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DW  OFFSET  FILTER_SET 
DW  0 

DW  OFFSET  CFO_HELPl 
DB  1,2,42,45 
DW  8000H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

COEF_MESSl  DB  OFFH , 50H , OFH , OFFH ,0,2 

DB  "ORDER  SAMPLING_FREQUENCY  CUTOFF_FREQUENCY  " 
DB  "COEFFICIENTS  QUIT" , ODH 
C0EF_HELP1  DW  OFFSET  COEF_HELP 
DW  OFFSET  ORDER_SET 
DW  OFFSET  DUMMY_CALL 
COEF_HELP  DB  0DH,"$" 

COEF  SI  DB  5 


DB 

OFH, 7 OH 

DW 

OFFSET 

COEF_Sl+5 

DB 

1,2, 0,4 

DW 

8100H 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

ORDER2  HELP1 

DB 

1,2,6,23 

DW 

8110H 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

SFO  HELP1 

DB 

1,2,25, 

40 

DW 

8 12  OH 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

CFO  HELP1 

DB 

1,2,42, 

53 

DW 

8130H 

DW 

OFFSET 

FILTER_SET 

DW 

0 

DW 

OFFSET 

CFO  HELP1 

DB 

1,2,55, 

58 

DW 

8000H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

? 

DW 

OFFSET 

QUIT  HELP1 

0D_MESS1  DB  OFFH, 50H, OFH, OFFH, 0,2 

DB  "BIT_ERROR_RATE  SIGNAL_CONSTELLATIONS  " 
DB  " FILTER_WAVEFORMS  QUIT", ODH 
0D_HELP1  DB  ODH, "$" 

0D_S1  DB  4 
DB  OFH, 7 OH 
DW  OFFSET  OD_S 1+  5 
DB  0,2,0,13 
DW  8100H 

DW  OFFSET  BERH  SI 
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DW  ? 

DW  OFFSET  BERH_HELP1 
DB  0,2,15,35 
DW  8100H 
DW  OFFSET  SC_S1 
DW  ? 

DW  OFFSET  SC_HELP1 
DB  0,2,37,52 
DW  8100H 
DW  OFFSET  FD_S1 
DW  ? 

DW  OFFSET  SC_HELP1 
DB  1,2,54,57 
DW  8000H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

NET_0D_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  " STORE_AND_FORWARD  MULTI PLE_ACCESS  QUIT",0DH 
NET_0D_HELP1  DB  0DH,"$" 

NET  OD  SI  DB  3 


DB 

OFH, 70H 

DW 

OFFSET 

NET  OD  Sl+5 

DB 

1,2,0,16 

DW 

8200H 

DW 

OFFSET 

SAF_0D_S1 

DW 

0 

DW 

OFFSET 

SAF  OD  HELP1 

DB 

1,2,18, 

32 

DW 

8200H 

DW 

OFFSET 

MA_OD_S 1 

DW 

0 

DW 

OFFSET 

MA  OD  HELP1 

DB 

1,2,34, 

37 

DW 

8300H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

7 

DW 

OFFSET 

QUIT_HELP1 

S AF_OD_MESS 1  DB  OFFH, 50H, OFH, OFFH, 57H, 0 , 7 , 4FH, 24 
DB  OFFH, 30, 5, OFFH, 50H, 7 OH, "FINISH” , OFFH, 5 OH, OFH 
DB  FI" 

DB  OFFH, 30, 6, "PACKET  DELAY:  F2" 

DB  OFFH, 30, 7, "THROUGHPUT:  F3" 

DB  OFFH , 59H , 19 , 9 , 6 , 3  5 , " n  J  1 —  I ” 

DB  OFFH, 20, 10, "Display  Packet  Delay:  " 

DB  OFFH, 50H, 7 OH, "ON  ", OFFH, 50H, OFH 
DB  OFFH, 20, 12, "Enter  Source  Node  Number:  " 

DB  OFFH, 20, 14 , "Enter  Destination  Node  Number:  " 
DB  OFFH, 59H, 19 , 17 , 6 , 35 , " n J  1 — I” 

DB  OFFH, 20, 18, "Display  Throughput:  " 

DB  OFFH, 50H, 70H, "ON  ", OFFH, 50H, OFH 

DB  OFFH, 20, 20, "Enter  Source  Node  Number:  " 

DB  OFFH, 20, 22 , "Enter  Destination  Node  Number:  " 
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DB  OFFH, 29,75, ODH 
S AF_OD_MES S 3  DB  OFFH, 50, 10 

DB  OFFH , 50H , 7 OH , "OFF" , OFFH , 50H, OFH, OFFH , 79 , 2 5 , ODH 
SAF_OD_MESS 5  DB  OFFH, 50, 18 

DB  OFFH, 50H, 7 OH, "OFF", OFFH, 50H, OFH, OFFH, 7 9, 2 5, ODH 
SAF_OD_PD_OFF  DB  OFFH, 50H, 7 , OFFH, 20 , 12 

DB  "  " 

DB  OFFH, 20, 14 

DB  "  ", OFFH, 79, 25, ODH 

SAF_OD_PB_OFF  DB  OFFH, 50H, 7 , OFFH, 20 , 20 

DB  "  " 

DB  OFFH, 20, 22 

DB  "  ", OFFH, 79, 25, ODH 

SAF_OD_CTL  DB  3 

DB  30,5 
DB  35,5 
DB  0 

DB  50,10 
DB  52,10 
DB  1 

DB  50,18 
DB  52,18 
DB  2 

MA_OD_MESS 1  DB  OFFH, 50H, OFH, OFFH, 57H, 0 , 7 , 4FH, 24 
DB  OFFH, 24,7, OFFH, 50H, 70H, "FINISH" , OFFH, 50H, OFH 
DB  FI" 

DB  OFFH, 24, 8, "PACKET  DELAY:  F2" 

DB  0 FFH ,24,9, "THROUGHPUT :  F3 " 

DB  OFFH, 59H, 19 , 11 , 5 , 28 , " n J  I" 

DB  OFFH, 20, 13, "Display  Packet  Delay:  " 

DB  OFFH, 50H, 70H, "ON  ", OFFH, 50H, OFH 
DB  OFFH, 20, 15, "Display  Throughput:  " 

DB  OFFH, 50H, 70H, "ON  ", OFFH, 50H, OFH 
DB  OFFH, 79, 25, ODH 
MA_OD_MESS 3  DB  OFFH, 44, 13 

DB  OFFH, 50H, 70H, "OFF" , OFFH, 50H, OFH, OFFH, 79 , 25, ODH 
MA_0D_MESS5  DB  OFFH, 44, 15 

DB  OFFH, 50H,70H, "OFF", OFFH, 50H, OFH, OFFH, 79, 25, ODH 
MA_OD_CTL  DB  3 

DB  24,7 
DB  29,7 
DB  0 

DB  44,13 
DB  46,13 
DB  1 

DB  44,15 
DB  46,15 
DB  2 

MA_0D_CTL_K  DB  3 

DW  F1_KEY 
DB  0 

DW  F2_KEY 
DB  1 

DW  F3  KEY 
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DB  2 


ANALY_MESS 1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 
DB  "VIEW_DATA  VIEW_GRAPH  QUIT", ODH 
ANALY_HELP1  DB  ODH, "$" 

ANALY  SI  DB  3 


DB 

OFH, 7 OH 

DW 

OFFSET 

ANALY  Sl+5 

DB 

1,2, 0,8 

DW 

0 

DW 

OFFSET 

VD  SI 

DW 

OFFSET 

VD  MESS1 

DW 

OFFSET 

RETRIEVE  HELP1 

DB 

1,2,10, 

19 

DW 

0 

DW 

OFFSET 

OD  SI 

DW 

OFFSET 

OD  MESS1 

DW 

OFFSET 

LINK  S  HELP1 

DB 

1,2,21, 

24 

DW 

8400H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

? 

DW 

OFFSET 

QUIT_HELP1 

ANALY  S2  DB 

3 

DB 

OFH, 7 OH 

DW 

OFFSET 

ANALY  S2+5 

DB 

1,2, 0,8 

DW 

8103H 

DW 

OFFSET 

CI_S1 

DW 

0 

DW 

OFFSET 

RETRIEVE  HELP1 

DB 

1,2,10, 

19 

DW 

0 

DW 

OFFSET 

NVD  SI 

DW 

OFFSET 

NVD  MESS1 

DW 

OFFSET 

LINK  S  HELP1 

DB 

1,2,21, 

24 

DW 

8400H 

DW 

OFFSET 

QUIT_HANDLER 

DW 

"> 

• 

DW 

OFFSET 

QUIT_HELP1 

NVD_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  "PACKET_DELAY  THROUGHPUT  QUIT", ODH 
NVD_S1  DB  3 
DB  OFH, 7 OH 
DW  OFFSET  NVD_Sl+5 
DB  1,2,0,11 
DW  8101H 
DW  OFFSET  CI_S1 
DW  0 

DW  OFFSET  RETRIEVE_HELP1 
DB  1,2,13,22 
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DW  8102H 
DW  OFFSET  CI_S1 
DW  0 

DW  OFFSET  LINK_S_HE LP 1 
DB  1,2,24,27 
DW  8400H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

VD_MESS1  DB  OFFH, 50H, OFH, OFFH, 0 , 2 

DB  "PERFORMANCE_DATA  TRANSMITTER_FILTER_DESIGN_DATA  " 
DB  "RECEIVER_FILTER_DESIGN_DATAM 
DB  OFFH, 0,3 
DB  "QUIT",ODH 
VD_S1  DB  4 
DB  OFH, 7 OH 
DW  OFFSET  VD_Sl+5 
DB  0,2,0,15 
DW  8100H 
DW  OFFSET  RE_S1 
DW  0 

DW  OFFSET  RETRIEVE_HELP1 
DB  0,2,17,46 
DW  8101H 
DW  OFFSET  RE_S1 
DW  0 

DW  OFFSET  LINK_S_HELP1 
DB  0,2,48,74 
DW  8102H 
DW  OFFSET  RE_S1 
DW  0 

DW  OFFSET  LINK_S_HELP1 
DB  1,3, 0,3 
DW  8400H 

DW  OFFSET  QUIT_HANDLER 
DW  ? 

DW  OFFSET  QUIT_HELP1 

BERH_HELP1  DB  0DH,"$" 

FIR_S_HELP1  DB  0DH,"$" 

FIR_R_HELP1  DB  0DH,"$" 

D0S_HELP1  DB  0DH,"$M 
YES_HELP1  DB  0DH,"$" 

N0_HELP1  DB  ODH, "$" 

SC_HELP1  DB  ODH, "$" 

RUN_HELP1  DB  0DH,"$" 

BPSK_HELP1  DB  0DH,"$" 

QPSK_HELP1  DB  0DH,"$" 

PSK8_HELP1  DB  0DH,'’$" 

BFSK_HELP1  DB  0DH,H$" 

QFSK_HELP1  DB  0DH,M$" 

FSK8_HELP1  DB  0DH,M$" 

QAM16_HELP1  DB  0DH,"$M 
QAM64_HELP1  DB  0DH,M$" 
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S0FT_HELP1  DB  ODH,"$M 
HARD_HELP1  DB  ODH,M$" 
SF_HELP1  DB  ODH, "$M 
CFJHELP1  DB  ODH, "$M 
PA_HELP1  DB  ODH,M$M 
SA_HELP1  DB  ODH, M$" 
C0DED_HELP1  DB  ODH,"$" 
UNC0DED_HELP1  DB  ODH, "$M 
N0NE_BE_HELP1  DB  ODH,"$" 
CCR2K3_HELP1  DB  ODH,"$" 
CCR2K7_HELP1  DB  ODH,"$" 
DUAL3_HELP1  DB  ODH, "$" 
RS15_9_HELP1  DB  ODH,"$M 
RS255_223_HELP1  DB  ODH,"$" 
N0NE_EC_HELP1  DB  ODH,"$M 
CCD_SV_HELP1  DB  ODH,"$" 
CCD_HV_HELP1  DB  ODH,"$" 
RSD_HELP1  DB  ODH,"$" 
R_C0NFIG_S_HELP1  DB  ODH,"$ 
S_C0NFIG_S_HELP1  DB  ODH,"$ 
WGN_HELP1  DB  ODH, "$" 
RBS_HELP1  DB  ODH,"$" 
SINU_F_HELP1  DB  ODH,"$" 
SINU_A_HELP1  DB  ODH,"$" 
0RDER2_HELP1  DB  ODH,"$" 
SF0_HELP1  DB  ODH,"$" 
CF0_HELP1  DB  ODH,"$" 
N0NE_CS_HELP1  DB  ODH,"$w 
N0NE_C_HELP1  DB  ODH,"$" 
N0NED_HELP1  DB  ODH,M$" 
LP_HELP1  DB  ODH,  "$'* 
WGNC_HELP1  DB  ODH,"$" 
BSC_HELP1  DB  ODH,"$M 
DPSK_HELP1  DB  ODH,"$" 
QUIT_HELP1  DB  ODH,"$" 
C0DEDS_HELP1  DB  ODH,"$" 
UNC0DEDS_HELP1  DB  ODH,"$" 
RETRIEVE_HELP1  DB  ODH,"$" 
CI_HELP1  DB  ODH, ”$" 
IS_HELP1  DB  ODH,M$M 
R_NETC0N_S_HELP1  DB  ODH,H$ 
S_NETC0N_S_HELP1  DB  ODH,"$ 
E_NETC0N_S_HELP1  DB  ODH,M$ 
UP  HELP1  DB  ODH,M$M 
N0C_HELP1  DB  ODH,H$M 
N0N_HELP1  DB  ODH,"$" 
ITR_HELP1  DB  ODH, 

TCR__HELP1  DB  ODH,"$" 
LC_HELP1  DB  ODH,"$" 
XTM_HELP1  DB  ODH,M$M 
SP_HELP1  DB  ODH, "$" 
RR_HELP1  DB  ODH,M$M 
SAF  PB_HELP1  DB  ODH,w$" 

SAF  PD_HELP1  DB  ODH,M$M 
NONE  OD  HELP1  DB  ODH,"$" 


MA_N0NE_HELP1  DB  ODH,"$" 

MA_PD_HE LP 1  DB  ODH, "$" 

STAR_HELP1  DW  OFFSET  STAR_HELP 

DW  OFFSET  TOPOLOGY_SET 
DW  OFFSET  DUMMY_CALL 
STAR_HELP  DB  ODH,"$" 

SAF_OD_HELPl  DB  ODH, "$" 

MA_0D_HELP1  DB  ODH,"$ " 

U D_LOO P_HE LP 1  DW  OFFSET  UD_LOOP_HELP 
DW  OFFSET  TOPOLOGY_SET 
DW  OFFSET  DUMMY_CALL 
UD_LOOP_HELP  DB  ODH,M$" 

BD_LOOP_HELPl  DW  OFFSET  BD_LOOP_HELP 
DW  OFFSET  TOPOLOGY_SET 
DW  OFFSET  DUMMY_CALL 
BD_LOOP_HELP  DB  ODH,"$" 


CON_SCREEN  DB  OFFH, 5BH, 50H, OFFH, 5 OH. OFH 
DB  OFFH, 59H, 0,9, 5, 13,"  nJ  ^ I" 

DB  OFFH, 59H, 17 , 9 , 5 , 13 , " n J  * —  " 

DB  OFFH, 59H, 34 , 9 , 5 , 13 , " n J  1 —  " 

DB  OFFH, 59H, 51, 9 , 5 , 13 , " n J  1 —  " 

DB  OFFH, 59H, 67 , 14 , 4 , 11 , " n J  * — | " 

DB  OFFH, 59H, 0, 18 , 5, 13 , " n J  1 — I" 

DB  OFFH, 59H, 17, 18, 5, 13," nJ  *—  " 

DB  OFFH, 59H, 34 , 18 , 5 , 13 , " n J  1 —  " 

DB  OFFH, 59H, 51, 18 , 5 , 13 , " n J  * —  M 

51  DB  OFFH, 50H, 7, OFFH, 4, 10, "SOURCE", ODH 

52  DB  OFFH, 50H, 7, OFFH, 2 1,10, "ENCODER", ODH 

53  DB  OFFH, 50H, 7, OFFH, 37, 10, "MODULATOR", ODH 

54  DB  OFFH, 50H, 7, OFFH, 53, 10, "TRANSMITTER" 

DB  OFFH, 55, 11, "FILTER" 

DB  ODH 

55  DB  OFFH, 50H, 7, OFFH, 70, 15, "CHANNEL", ODH 
DB  OFFH, 50H, 7, OFFH, 5, 19, "SINK" 

56  DB  OFFH, 50H, 7, OFFH, 21, 19, "DECODER", ODH 

57  DB  OFFH, 50H, 7, OFFH, 36, 19, "DEMODULATOR", ODH 

58  DB  OFFH, 50H, 7, OFFH, 54, 19, "RECEIVER", OFFH, 55, 20, "FILTER" 
DB  ODH 

DB  OFFH, 50H, OFH 

DB  OFFH,  14, 12,"  I - 1" 

DB  OFFH, 31, 12,"  -  " 

DB  OFFH, 48, 12, "  - " 

DB  OFFH, 65, 12,"  - 1" 

DB  OFFH, 73, 13,"  " 

DB  OFFH, 7 3, 14, "1m 

DB  OFFH,  14, 21,  "1 - 1" 

DB  OFFH,  31, 21,"  -  " 

DB  OFFH,  48, 21,"  | - 1  " 

DB  OFFH, 73, 19, 

DB  OFFH, 73, 20, 

DB  OFFH, 65, 21, 

DB  ODH, "$" 

CON_SCREEN_CLEAR  DB  OFFH, 57H, 0 , 9 , 79 , 24 , ODH 
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DB  OFFH , 50H , 87H , OFFH ,4,10, "SOURCE” , ODH 
DB  OFFH, 50H, 87H, OFFH, 21, 10, "ENCODER" , ODH 
DB  OFFH, 50H, 87H, OFFH, 37,10, "MODULATOR" , ODH 
DB  OFFH, 50H, 87H, OFFH, 53 , 10, "TRANSMITTER" , OFFH, 55 , 11 
DB  "FILTER", ODH 

DB  OFFH, 50H,87H, OFFH, 70, 15, "CHANNEL", ODH 
DB  OFFH, 50H, 87H, OFFH, 21,19, "DECODER" , ODH 
DB  OFFH , 50H , 87H , OFFH ,36,19, "DEMODULATOR" , ODH 
DB  OFFH, 50H, 87H, OFFH, 54,19, "RECEIVER" , OFFH, 55 , 20 
DB  "FILTER", ODH 
DW  OFFSET  MOD_BPSK 
DW  OFFSET  MOD_QPSK 
DW  OFFSET  M0D~8PSK 
DW  OFFSET  M0D_16QAM 
DW  OFFSET  MOD_64QAM 
DW  OFFSET  MOD_BFSK 
DW  OFFSET  M0D_4FSK 
DW  OFFSET  MOD_8FSK 
DW  OFFSET  MOD_NONE 
DW  OFFSET  MODJTBPSK 
MOD_UDF  DB  OFFH, 57H, 35, 11, 47 , 14 , OFFH, 50H, 7 , ODH 
MOD_BPSK  DB  OFFH, 39 , 12 , "BPSK" , ODH 
MOD_QPSK  DB  OFFH, 39 , 12 , "QPSK" , ODH 
M0D_8PSK  DB  OFFH, 39 , 12 , "8-PSK" , ODH 
M0D_16QAM  DB  OFFH, 38 , 12 , "16-QAM" , ODH 
MOD_64QAM  DB  OFFH, 38 , 12 , "64-QAM" , ODH 
MOD_BFSK  DB  OFFH, 39 , 12 , "BFSK" , ODH 
MOD_4FSK  DB  OFFH, 39 , 12 , "4-FSK" , ODH 
M0D_8FSK  DB  OFFH, 39 , 12 , "8-FSK" , ODH 
MOD_NONE  DB  OFFH, 39 , 12 , "None" , ODH 

MOD_TBPSK  DB  OFFH, 36, 12 , "Time  Domain" , OFFH, 39 , 13 , "BPSK" , ODH 
ECD_P  DW  OFFSET  ECD_NONE 
DW  OFFSET  ECD_CCK3 
DW  OFFSET  ECD_CCK7 
DW  OFFSET  ECD_DUAL3 
DW  OFFSET  ECDJRS15 
DW  OFFSET  ECD_RS255 

ECD_UDF  DB  OF^H, 57H, 18 , 11, 30, 14 , OFFH, 50H, 7 , ODH 
ECD_NONE  DB  OFFH, 22 , 12 , "None" , ODH 

ECD_CCK3  DB  OFFH, 19 , 12 ," (r= 1/2 , K=3) ", OFFH, 18 , 13 , "Convolutional" 
DB  ODH 

ECD_CCK7  DB  OFFH, 19, 12 , " (r-1/2 ,K=7) ", OFFH, 18 , 13 , "Convolutional" 
DB  ODH 

ECD  DUAL3  DB  OFFH, 20, 12 , "Dual-3" , OFFH, 18 , 13 , "Convolutional" 

DB  ODH 

ECD  RS15  DB  OFFH, 20 , 12 , " (15, 9) " , OFFH, 18 , 13 , "Reed-Solomon" 

DB  ODH 

ECD_RS255  DB  OFFH, 19 , 12 ," (255, 223 )", OFFH, 18 , 13 , "Reed-Solomon" 

DB  ODH 

SOU_P  DW  OFFSET  SOU_RBS 
DW  OFFSET  SOU_SINU 
DW  OFFSET  SOU_SW 
DW  OFFSET  SOU_WGN 

SOU_UDF  DB  OFFH, 57H, 1,11, 13, 14, OFFH, 50H, 7, ODH 

SOU  RBS  DB  OFFH, 2, 12, "Random  Bit" , OFFH, 4 , 13 , "Stream" , ODH 


T1 

T2 

T3 

T4 

T5 

T6 

T7 

T8 

MOD  P 
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SOU_SINU  DB  OFFH, 3, 12, "Sinusoid", ODH 
SOU_SW  DB  OFFH, 2,12, "Square  Wave",ODH 

SOU_WGN  DB  OFFH, 4, 12, "White", OFFH, 3, 13, "Gaussian", OFFH, 4, 14 
DB  "Noise" . ODH 
DCDP  DW  OFFSET  DCD_NONE 
DW  OFFSET  DCD_SOFT 
DW  OFFSET  DCD_HARD 
DW  OFFSET  DCD_REED 

DCD_UDF  DB  OFFH, 57H, 18 , 20, 30 , 23 , OFFH, 50H, 7 , ODH 
DCD_NONE  DB  OFFH, 22 , 21, "None" , ODH 
DCD_SOFT  DB  OFFH, 18,21, "Soft  Viterbi",ODH 
DCD_HARD  DB  OFFH, 18 , 21, "Hard  Viterbi",ODH 
DCD_REED  DB  OFFH, 18,21, "Reed-Solomon", ODH 
DEMOD_P  DW  OFFSET  DEMO D_S OFT 
DW  OFFSET  DEMOD_HARD 
DW  OFFSET  DEMOD_NONE 

DEMOD_UDF  DB  OFFH, 57H, 35, 20, 47 , 23 , OFFH, 50H, 7 , ODH 
DEMOD_SOFT  DB  OFFH, 39 , 21, "Soft" , ODH 
DEMOD_HARD  DB  OFFH, 39 , 21, "Hard" , ODH 
DEMOD_NONE  DB  OFFH, 39, 21, "None" , ODH 
CF_P  DW  OFFSET  CF_NONE 
DW  OFFSET  CF_LP 
DW  OFFSET  CF_BW 
DW  OFFSET  CF_CB 
DW  OFFSET  CF~EP 
DW  OFFSET  CF_FIR 
DW  OFFSET  CF_IIR 

CF_UDF  DB  OFFH, 57H, 52, 12, 64, 14, OFFH, 50H, 7, ODH 
CF_NONE  DB  OFFH, 5* , 13 , "None" , ODH 
CF_LP  DB  OFFH, 54, 13, "Low-Pass", ODH 
CF_BW  DB  OFFH, 53,13, "Butterworth" , ODH 
CF_CB  DB  OFFH, 54,13, "Chebychev" , ODH 
CF_EP  DB  OFFH, 54, 13, "Elliptic", ODH 
CF_FIR  DB  OFFH, 57 , 13 , "FIR" , ODH 
CF_IIR  DB  OFFH,  57, 13,  "HR",  ODH 
CFT_P1  DW  OFFSET  CFT_ORDER 
DW  OFFSET  CFT_ATTEN 
CFT_P2  DW  OFFSET  CFT_0RDER1 
DW  OFFSET  CFT_ATTEN 

CFT_UDF  DB  OFFH, 57H, 52 , 14 , 64 , 14 , OFFH, 50H, 7 , ODH 
CFT_ORDER  DB  OFFH, 56, 14 , "Order" , ODH 
CFT_ATTEN  DB  OFFH, 53 , 14 , "Attenuation" , ODH 
CFT_0RDER1  DB  OFFH, 52 , 14 , "Coefficients" , ODH 
RF_P  DW  OFFSET  RF_NONE 
DW  OFFSET  RF_LP 
DW  OFFSET  RF  BW 
DW  OFFSET  RF~CB 
DW  OFFSET  RF~EP 
DW  OFFSET  RF~FIR 
DW  OFFSET  RF~IIR 

RFJJDF  DB  OFFH, 57H, 52, 21, 64, 23, OFFH, 50H, 7, ODH 
RF_NONE  DB  OFFH, 56 , 22 , "None" , ODH 
RF_LP  DB  OFFH, 54, 22, "Low-Pass", ODH 
RF_BW  DB  OFFH, 53, 22, "Butterworth", ODH 
RF_CB  DB  OFFH, 54, 22, "Chebychev", ODH 
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RF_EP  DB  OFFH, 54 , 22 , "Elliptic” , ODH 
RF_FIR  DB  OFFH ,57, 2 2," FIR", ODH 
RF_IIR  DB  OFFH,  57, 22,  "HR",  ODH 
RFT_P1  DW  OFFSET  RFT_ORDER 
DW  OFFSET  RFT_ATTEN 
RFT_P2  DW  OFFSET  RFT_ORDERl 
DW  OFFSET  RFT_ATTEN 

RFT_UDF  DB  OFFH, 57H, 52 , 23 , 64 , 23 , OFFH, 50H, 7 , ODH 
RFT_ORDER  DB  OFFH, 56, 23 , "Order" , ODH 
RFT_ATTEN  DB  OFFH, 53 , 23 , "Attenuation" , ODH 
RFT_ORDERl  DB  OFFH, 52 , 23 , "Coefficients" , ODH 
CHL_P  DW  OFFSET  CHL_NONE 
DW  OFFSET  CHL_WGN 
DW  OFFSET  CHL_BSC 
DW  OFFSET  CHL_PM 

CHL_UDF  DB  OFFH, 57H, 68 , 16 , 78 , 18 , OFFH, 50H, 7 , ODH 
CHL_NONE  DB  OFFH, 71, 17 , "None" , ODH 

CHL_WGN  DB  OFFH, 71, 16, "White" , OFFH, 69 , 17 , "Gaussian" 

DB  OFFH, 71, 18, "Noise", ODH 
CHL_BSC  DB  OFFH, 72, 17, "BSC", ODH 

CHL_PM  DB  OFFH, 68, 16, "Propagation", OFFH, 7 1,17, "Model", ODH 

SIG_CONl  DB  OFFH, 50H, 70H, OFFH, 49,12," — " 

SIG_CON2  DB  OFFH,  50H,  70H.  OFFH,  66,12,  " - 1" 

DB  OFFH, 73,13,"] " 

SIG_CON5  DB  OFFH, 50H, 70H, OFFH, 49,21," — " 

SIG_CON4  DB  OFFH, 50H,70H, OFFH, 73, 20, "| " 

DB  OFFH,  66, 21," - >" 

DB  OFFH, 50H, 70H, OFFH, 50,3, "FINISH" , OFFH, 50H, OFH 
DB  FI" 

TX1  DB  OFFH, 50H, OFH, OFFH, 50, 4, "TRANSMITTER  INPUT:  F2" 

TX2  DB  OFFH, 50H, OFH, OFFH, 50, 5, "TRANSMITTER  OUTPUT:  F3" 

RX1  DB  OFFH, 50H, OFH, OFFH, 50, 6, "RECEIVER  INPUT:  F4" 

RX2  DB  OFFH, 50H, OFH, OFFH, 50, 7, "RECEIVER  OUTPUT:  F5" 

DB  OFFH, 79, 25, ODH 

SIG_C0N3  DB  OFFH, 50H, 70H, OFFH, 49,21," — " 

DB  OFFH, 50H,70H, OFFH, 45, 6, "FINISH", OFFH, 50H, OFH," 
DB  OFFH, 45, 7, "PLOT:  F2" 

DB  OFFH, 79, 25, ODH 
SIG_C0N_M1  DB  2 

DB  49,21 
DB  50,21 
DB  8 
DB  45,6 
DB  50,6 
DB  10H 

SIG_C0N_KM1  DB  2 

DW  F2_KEY 
DB  8 

DW  F1_KEY 
DB  10H 

SIG_C0N_M2  DB  7 

DB  49,12 
DB  50,12 


FI" 


34 


DB  2 

DB  66,12 
DB  73,12 
DB  3 

DB  73,13 
DB  73,13 
DB  3 

DB  49,21 
DB  50,21 
DB  4 

DB  73,20 
DB  73,20 
DB  5 

DB  66,21 
DB  73,21 
DB  5 
DB  50,3 
DB  55,3 
DB  10H 

SIG_C0N_KM2  DB  5 

DW  F5_KEY 
DB  4 

DW  F4_KEY 
DB  5 

DW  F3JKEY 
DB  3 

DW  F2_KEY 
DB  2 

DW  F1_KEY 
DB  10H 

BER_HIS1  DB  OFFH,  50H,  70H,  OFFH,  15,21," — " 

DB  OFFH, 50H,70H, OFFH, 11, 6, "FINISH", OFFH, 50H,0FH,":  FI" 
DB  OFFH, 11, 7, "PLOT:  F2" 

DB  OFFH, 79 , 25 , ODH 
BER_HIS_M1  DB  2 

DB  15,21 
DB  16,21 
DB  1 
DB  11,6 
DB  16,6 
DB  10H 

BER_HIS_KM1  DB  2 

DW  F2__KEY 
DB  1 

DW  F1_KEY 
DB  10H 

KEYBOARD_CONTROL_BUFFER  DB  4 

DB  0 
DW  0 
DW  0 
DW  0 

DW  OFFSET  MOUSE  HANDLER 
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STACK_POINTER  DW  ? 

STACK_PO INTER1  DW  ? 

STACK_P0INTER3  DW  ? 

PUBLIC  BIT_RATE , AMPLITUDE_SIN , AMPLITUDEjSW, SOU_NO , SF_BW_CF 
PUBLIC  CHL_NO , CHL_ER ,  SBU , MA_UP , NET_CON , SAF_TP , SOU_CON , MOD_CON 
PUBLIC  ECD_CON,CF  CON , RF_CON , DCD  CON , DEMOD_CON , CHL_CON , ITM_MA 
PUBLIC  ITM_S , S_NN7LC_BL , LC_UL , LC^S , ORDER_BW_CF , FIR_CF , MA_CON 
PUBLIC  PM_CONST , PM_CON , CF_BW_T , BER_HIS , SIG_CON , NET_OD_SAF , NET_OD_MA 
PUBLIC  NUMBER_ITERATION , SAF_RTG , REAL_TIME ; PB_SN , MA_AMBF , MA_CMBF 


NUMBER_OF_INTEGER  EQU  10 
NUMBER_OF_DATA  EQU  73 
N_B  EQU  4002 

LINK_NET  DB  0  ;  Link  :  0 

;  Network  :  1 


SOU  CON  DB  0 


MOD  CON  DB  0 


ECD  CON  DB  0 


CF  CON  DB  0 


Undefined  :  0 

Random  bit  :  1 

Sinusoidal  :  2 

Square  wave  :  3 

White  Gaussian  :  4 

Undefined  :  0 

BPSK  :  1 

QPSK  :  2 

8—PSK  :  3 

16 -QAM  :  4 

64 -QAM  :  5 

BFSK  :  6 

4-FSK  :  7 

8-FSK  :  8 

None  :  9 

Time  domain  BPSK  :  10 
Undefined  :  0 
None  :  1 

(rs=l/2,K=3)  binary  convolutional 
(ra*l/2,K=7)  binary  convolutional 
Dual-3  :  4 

(15,9)  Reed-Solomon  :  5 
(255,223)  ReeD-Solomon  :  6 
Undefined  :  0 
None  :  1 


Low-Pass  :  2 
Butterworth  :  3 
Chebychev  :  4 
Elliptic  :  5 
FIR  :  6 


RF  CON  DB  0 


User  :  7 
Undefined  :  0 
None  :  1 


Low-Pass  :  2 
Butterworth  :  3 
Chebychev  :  4 
Elliptic  :  5 
FIR  :  6 
User  :  7 


2 

3 
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DCD  CON  DB  0 


Undefined  :  0 
None  :  1 
Soft  Viterbi  :  2 
Hard  Viterbi  :  3 
Reed-Solomon  :  4 
DEMOD_CON  DB  0  ;  Undefined  :  0 

;  Soft  :  1 
;  Hard  :  2 
;  None  :  3 


CHL  CON  DB  0 


Undefined  :  0 
None  :  1 

White  Gaussian  Noise  :  2 


BSC  :  3 

Propagation  Model  :  4 


CF_BW_T  DB  8  DUP 

(?) 

;  o 
;  l 
;  2 

Undefined 

Order 

Attenuation 

PM  CON  DB  0  ;  Bit  1  : 

0  : 

Open 

• 

9 

l  : 

Suburban 

;  Bit  2  : 

0  : 

No  Foliage 

• 

9 

1  : 

Foliaged 

ORDER  BW  CF  DB  5 

DUP 

(?) 

DB  5 

DUP 

(?) 

ORDER  CB  CF 

DB  5 

DUP 

(?) 

ORDER  EP  CF 

DB  5 

DUP 

(?) 

ORDER  LP  CF 

FI  CF  0  DB  5 

DUP 

(?) 

ORDER  FI  CF 

DB  5 

DUP 

(?) 

ORDER  BW  RF 

DB  5 

DUP 

(?) 

ORDER  CB  RF 

DB  5 

DUP 

(?) 

ORDER  EP  RF 

DB  5 

DUP 

(?) 

ORDER  LP  RF 

FI  RF  0  DB  5 

DUP 

(?) 

ORDER  FI  RF 

AMPLITUDE  SIN  DB 

15  DUP  (' 

>) 

FREQUENCY  SIN  DB 

15  DUP  (' 

>) 

AMPLITUDE_SW  DB  15  DUP  (?) 

FREQUENCY_SW  DB  15  DUP  (?) 

BIT_RATE  DB  15  DUP  (?) 

SOU_NO  DB  15  DUP  (?) 

CHL_NO  DB  15  DUP  (?) 

CHL_ER  DB  15  DUP  (?) 

PM_CONST  DB  135  DUP  (?)  ;  Transmitter  Antenna  Height, 

;  Receiver  Antenna  Height,  Transmitter  Average  Power, 

;  Transmitter  Antenna  Gain,  Receiver  Antenna  Gain, 

;  Carrier  Frequency,  Distance,  Receiver  Noise  Temperature, 
;  Receiver  Bandwidth 


SF  BW  CF 


DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

SF  CB  CF 
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DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DB 

15 

DUP 

(?) 

DW 

20 

DUP 

(?) 

FIR_CF  DW  99 
DB  14 

DB  1400  DUP  (?) 
DW  99  ;  FIR_RF 
DB  14 

DB  1400  DUP  (?) 


;  SF  EP  CF 


;  SF  FI  CF 


;  SF  BW  RF 


;  SF  CB  RF 


;  SF  EP  RF 


;  SF  FI  RF 


;  Guard  space 


BER_HIS  DB  0  ;  None  :  0 
;  Coded  :  1 
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SIG  CON  DB  0 


Uncoded  :  2 
None  :  0 

Modulator  Output  :  1 
Channel  Filter  Output  : 
Channel  Output  :  4 
Receiver  Filter  Output 
SETUP  DB  0  ;  None  :  0 
;  Coded  :  1 
;  Uncoded  :  2 

NUMBER_ITERATION  DB  20  DUP  (?) 


2 


8 


NETCON_C  DB  OFFH, 57H, 0,9, 4FH, 24 , ODH 

NETCON_M  DB  OFFH, 0 , 9 , OFFH, 50H, OFH, "Type  of  Network:  ",0DH 
NETCON_SAF  DB  OFFH ,17,9, "Store-and-Forward" 

DB  ODH 

NETCON_MA  DB  OFFH ,17,9, "Multiple-Access  " 

DB  ODH 

NETCON_UD  DB  OFFH, 17 , 9 , "Undefined  " 

DB  ODH 

NETCON_MA_M  DB  OFFH, 0 , 10 , OFFH, 50H, OFH, "Type  of  Protocol:  " , ODH 
NETCON_MA_A  DB  OFFH, 18, 10 
DB  "ALOHA  ", ODH 

NETCON_MA_TCR  DB  OFFH, 18, 10 
DB  "Tree  " , ODH 

NETCON_MA_CSMA  DB  OFFH, 18, 10 
DB  "CSMA  " , ODH 

NETCON_MA_UD  DB  OFFH, 18, 10 

DB  "Undefined  ",0DH 

NETCON_TP_M  DB  OFFH, 0, 10 , OFFH, 50H, OFH, "Type  of  Topology:  » , ODH 
NETCON_TP_S  DB  OFFH, 18, 10 

DB  "Star  " , ODH 

NETCON_TP_UL  DB  OFFH, 18, 10 
DB  "Unidirectional  Loop" , ODH 
NETCON_TP_BL  DB  OFFH, 18, 10 

DB  "Bidirectional  Loop  " ,0DH 
NETCON_TP_UD  DB  OFFH, 18, 10 
DB  "Undefined  ",0DH 

NETCON_RG_M  DB  OFFH, 0, 11, OFFH, 5 OH, OFH 
DB  "Type  of  Routing  Algorithm:  " ,0DH 
NETCON_RG_S  DB  OFFH, 27, 11 
DB  "Shortest-Path" , ODH 
NETCON_RG_R  DB  OFFH, 27, 11 
DB  "Random  ", ODH 

NETCON_RG_UD  DB  OFFH, 27, 11 
DB  "Undefined  " , ODH 

REAL_TIME_M  DB  OFFH, 0 , 12 , OFFH, 50H, OFH 
DB  "Real  Time  Animation:  " ,0DH 
REAL_TIME_ON  DB  OFFH, 21, 12 
DB  "On  " , ODH 

REAL_TIME_OFF  DB  OFFH, 21, 12 
DB  "Off", ODH 


NC_N_B  EQU  1344 
NUMBER_OF_INTEGER2  EQU  3 
NET  CON  DB  0  ;  0  :  Unknown 
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I 


;  1  :  Store-and- forward 
;  2  :  Multiple-access 
SAF_TP  DB  0  ;  0  :  Unknown 

;  1  :  Star 

;  2  :  Unidirectional  loop 

?  3  :  Bidirectional  loop 

SAF_RTG  DB  0  ;  0  :  Unknown 

;  1  :  Shortest  path  routing 
;  2  :  Random  routing 
MA_CON  DB  0  ;  0  :  Unknown 
;  1  :  ALOHA 

;  2  :  Tree  collision  resolution 
;  3  :  CSMA 
S_NN  DB  5  DUP  (?) 

MA_UP  DB  5  DUP  (?) 

MA_NC  DB  5  DUP  (?) 

MA_AMBF  DB  10  DUP  (?) 

MA_CMBF  DB  10  DUP  (?) 

DB  10  DUP  (?)  ;  MA_CPR 

ITM_S  DW  64 
DB  9 

DB  630  DUP  (?) 

ITM_MA  DW  20 
DB  9 

DB  200  DUP  (?) 

LC_S  DW  16 
DB  9 

DB  180  DUP  (?) 

LC_UL  DW  8 
DB  9 

DB  90  DUP  (?) 

LC_BL  DW  16 
DB  9 

DB  180  DUP  (?) 

DB  10  DUP  (?) 


NET_OD_SAF  DB  0 
NET_OD_MA  DB  0 
REAL  TIME  DB  0 


;  None  :  0 
;  Packet  delay  :  1 
;  Packet  throughput 
None  :  0 

Packet  delay  :  1 
Packet  throughput  : 
Off  :  0 
On  :  l 


PB_NM  DW  4 
DB  5 

PB_SN  DB  5  DUP  (?) 
PB_DN  DB  5  DUP  (?) 
PD_SN  DB  5  DUP  (?) 
PD_DN  DB  5  DUP  (?) 


2 


2 


FILE_NAME  DB  12 
DB  0 
DB  4 
DW  425H 
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DW  425H 
DW  431H 
DW  0 
DW  0 
DB  0 
DW  0 
DW  ? 

DB  0 
DW  0 

DB  OFFH, 25H, 4 
DB  OFFH, 50H, 7 
AlO  DB  12  DUP  (?) 

DB  ODH 

ENTER_FILE  DB  OFFH, OBH, 4 , OFFH, 50H, 7 

DB  "Enter  File  Specification:  " ,ODH 

FILE_HANDLE  DW  ? 

FLP_NUMBER  DW  OFFSET  FRACTION 
DW  OFFSET  EXPONENT 
DW  1245H 
DW  1265H 
DB  "E" 

DW  62FH 
DB  7 
DB  0 
DW  ? 

DB  2  OH 
DW  0 
DW  ? 

DW  3  DUP ( ? ) 

FRACTION  DB  8 
DB  0 
DB  0 
DW  62EH 
DW  62 5H 
DW  62EH 
DW  MINUS_KEY 
DW  MINUS_KEY_NORMAL 
DB  0 
DW  0 
DW  ? 

DB  1 
DW  0 

DB  OFFH, 25H, 6 
DB  OFFH, 50H, 7 
DB  8  DUP  (?) 

DB  ODH 

EXPONENT  DB  3 
DB  0 
DB  0 
DW  63 2H 
DW  6 3 OH 
DW  632H 
DW  MINUS_KEY 
DW  MINUS_KEY_NORMAL 
DB  2 
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DW  0 
DW  ? 

DB  1 
DW  0 

DB  0FFH,24H,6 
DB  OFFH, 50H,  7 
DB  3  DUP  (?) 

DB  ODH 

FLP_NUMBER2  DW  OFFSET  FRACTION 2 
DW  OFFSET  EXPONENT2 
DW  1245H 
DW  1265H 
DB  "E" 

DW  52FH 
DB  7 
DB  0 
DW  ? 

DB  2  OH 
DW  0 
DW  ? 

DW  3  DUP (?) 

FRACTION2  DB  5 
DB  0 
DB  0 
DW  52EH 
DW  52 5H 
DW  52EH 
DW  MINUS_KEY 
DW  MINUS_KEY_NORMAL 
DB  2  OH 
DW  0 
DW  ? 

DB  1 
DW  0 

DB  OFFH, 25H, 5 
DB  OFFH, 50H, 7 
DB  5  DUP  (?) 

DB  ODH 

EXPONENT2  DB  2 
DB  0 
DB  0 
DW  53 3H 
DW  5 3 OH 
DW  53 3H 
DW  MINUS_KEY 
DW  MINUS_KEY_NORMAL 
DB  2 
DW  0 
DW  ? 

DB  1 
DW  0 

DB  OFFH, 25H, 5 
DB  OFFH, 50H, 7 
DB  2  DUP  (?) 

DB  ODH 


INTEGERN 

DB 

3 

DB 

0 

DB 

9 

DW 

527H 

DW 

51EH 

DW 

527H 

DW 

MINUS  KEY 

DW 

MINUS  KEY  NORMAL 

DB 

22H 

DW 

0 

DW 

OFFSET  TY  BEEP 

DB 

2 

DW 

0 

DB 

OFFH, 1EH, 5 

DB 

OFFH, 50H, 7 

DB 

20H,31H,20H 

DB 

ODH 

INTEGERN1  DB  8 

DB 

0 

DB 

9 

DW 

527H 

DW 

51EH 

DW 

527H 

DW 

MINUS  KEY 

DW 

MINUS  KEY  NORMAL 

DB 

22H 

DW 

0 

DW 

OFFSET  TY  BEEP 

DB 

2 

DW 

0 

DB 

OFFH, 1EH,5 

DB 

OFFH, 50H, 7 

DB 

2  OH , 3  OH ,0,0, 0,0, 0,0 

DB 

ODH 

NB_ITERA 

DB 

14 

DB 

0 

DB 

9 

DW 

532H 

DW 

529H 

DW 

532H 

DW 

MINUS  KEY 

DW 

MINUS  KEY  NORMAL 

DB 

22H 

DW 

0 

DW 

OFFSET  TY  BEEP 

DB 

2 

DW 

0 

DB 

OFFH, 29H, 5 

DB 

OFFH, 50H, 7 

DB 

2 OH, 31H 

DB 

12  DUP  (?) 

DB 

ODH 
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ENTER__AMPL  DB  OFFH,  OCH,  6,  OFFH,  50H,  7 

DB  "Sampling  Frequency  (Hz):  ", ODH 
ENTER_FREQ  DB  OFFH, OCH, 6, OFFH, 50H, 7 

DB  "Sinusoid  Frequency  (Hz):  ",ODH 
ENTER_BITR  DB  OFFH, OFH, 6, OFFH, 50H, 7 

DB  "Enter  Bit  Rate  (bps):  ",ODH 
ENTER_NO  DB  OFFH, 11, 5, OFFH, 50H, 7 
DB  "Received  Signal  Power  to  Noise" 

DB  OFFH, 11, 6, "Power  Density  Ratio  (dB) :  ",ODH 
S_P_NUMB  DB  OFFH, 0,2, OFFH, 50H, 7, "Press  the  " , 22H, "E" , 22H, "  key  to" 

DB  "  toggle  between  the  mantissa  and  exponent.  Press  the  » 
DB  22H, , 22H 

DB  OFFH, 0, 3 , "key  to  change  the  sign  of  the  " 

DB  "exponent  when  the  exponent  field  is  active." 

S_INTEGE  DB  OFFH, 0 , 4 , OFFH, 50H, 7 , "Press  the  Enter  key  to  accept  « 

DB  "the  number.", ODH 

S_NUMBER  DB  OFFH, 0 , 0, OFFH, 50H, 7 , "Press  the  " , 22H, "E" , 22H, "  key  to" 

DB  "  toggle  between  the  mantissa  and  exponent.  Press  the  " 
DB  22H, , 22H 

DB  OFFH, 0, 1, "key  to  change  the  sign  of  the  active  field." 
DB  OFFH, 0, 4 , OFFH, 50H, 7, "Press  the  Enter  key  to  accept  " 

DB  "the  number.", ODH 

A_NUMBER  DB  OFFH, 0 , 0 , OFFH, 50H, 7 , "Press  the  " , 22H, "E" , 22H, "  key  to" 

DB  "  toggle  between  the  mantissa  and  exponent.  Press  the  " 
DB  22H, "-" , 22H 

DB  OFFH, 0,1, "key  to  change  the  sign  of  the  active  field." 
DB  "  Press  the  " , 22H, "FI" , 22H, "  key  " 

DB  "to  accept  the" 

DB  OFFH, 0,2, "numbers.", ODH 

A_P_NUMB  DB  OFFH, 0,0, OFFH, 50H, 7, "Press  the  " , 22H, "E" , 22H, "  key  to" 
DB  "  toggle  between  the  mantissa  and  exponent.  Press  the  " 
DB  22H, , 22H 

DB  OFFH, 0,1, "key  to  change  the  sign  of  the  exponent  when  " 
DB  "the  exponent  field  is  active." 

DB  OFFH, 0,2, "Press  the  " , 22H, "FI" , 22H, "  key  " 

DB  "to  accept  the  numbers.", ODH 
1 1 UNIT  DB  OFFH, 0,3, "The  unit  of  the  link  capacities  is  " 

DB  "packets/ sec.", ODH 

ITM_UNIT  DB  OFFH, 0, 3 , "The  unit  of  the  input  traffic  is  " 

DB  "packets/sec.", ODH 


ITM_UNIT1  DB  OFFH , 0 , 3 , "The  unit  of  the  input  traffic  is 
DB  "packets/slot . " , ODH 
S_NI  DB  OFFH, 9, 5, OFFH, 50H, 7 

DB  "Maximum  Simulation  Time:  ",0DH 
E_ORDER  DB  OFFH, 18H, 5 , OFFH, 5 OH, 7 
DB  "Enter  Order:  ",0DH 
E_ORDER_ODD  DB  OFFH, 10 , 5 , OFFH, 50H, 7 

DB  "Enter  Order  (Odd  Integer):  ",0DH 
E_SAMPLE  DB  OFFH, 6 , 6 , OFFH, 50H, 7 

DB  "Enter  Sampling  Frequency  (Hz):  "ODH 
E_CUTOFF  DB  OFFH, 7 , 6 , OFFH, 50H, 7 

DB  "Enter  Cutoff  Frequency  (Hz):  ",0DH 
E_PASEDG  DB  OFFH, 0, 6, OFFH, 50H, 7 

DB  "Enter  Passband  Edge  Frequency  (Hz):  ",0DH 
E_STOEDG  DB  OFFH, 0, 6, OFFH, 50H, 7 
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DB  "Enter  Stopband  Edge  Frequency  (Hz):  " ,  ODH 
E_SA  DB  OFFH, 4, 6, OFFH, 50H, 7 

DB  "Enter  Stopband  Attenuation  (dB) :  ",ODH 
E_PA  DB  OFFH, 4,6, OFFH, 50H, 7 

DB  "Enter  Passband  Attenuation  (dB) :  ",ODH 
ENTER_ER  DB  OFFH, 16,6, OFFH, 50H, 7 

DB  "Enter  Bit  Error  Rate:  ",ODH 
TAH  DB  OFFH, 5, 6, OFFH, 50H, 7 

DB  "Transmitter  Antenna  Height  (m) :  " , ODH 
RAH  DB  OFFH, 8, 6, OFFH, 50H, 7 

DB  "Receiver  Antenna  Height  (m) :  ",ODH 
TAP  DB  OFFH, 0,6, OFFH, 50H, 7 

DB  "Average  Transmitter  Power  (in  watts):  ",0DH 
TAG  DB  OFFH, 6, 6, OFFH, 50H, 7 

DB  "Transmitter  Antenna  Gain  (dB) :  ",0DH 
RAG  DB  OFFH, 9, 6, OFFH, 50H, 7 

DB  "Receiver  Antenna  Gain  (dB) :  ",0DH 
CFM  DB  OFFH, 13, 6, OFFH, 50H, 7 

DB  "Carrier  Frequency  (MHz):", ODH 
DBTR  DB  OFFH, 21, 6, OFFH, 50H, 7 
DB  "Distance  (km):", ODH 
RNT  DB  OFFH, 2, 6, OFFH, 50H, 7 

DB  "Enter  Receiver  Noise  Power  (dBm):  ",0DH 
RBW  DB  OFFH, 7, 6, OFFH, 50H, 7 

DB  "Receiver  Noise  Bandwidth  (Hz):", ODH 
IL_FIR  DB  OFFH, 56H, 5, "J" , OFFH, 56H, 5, "K" , OFFH, 57H, 0,3,79,4 
DB  OFFH, 2 7, 3, "Illegal  FIR  data  file!" 

DB  OFFH, 27, 4, "Press  any  key  to  continue.", OFFH, 79, 25, ODH 
IL_COF  DB  OFFH, 56H, 5 , "J" , OFFH, 56H, 5 , "K" , OFFH, 57H, 0,3,79,4 
DB  OFFH, 22 , 3 , "Illegal  configuration  data  file!" 

DB  OFFH, 22, 4, "Press  any  key  to  continue. ", OFFH, 79, 2 5, ODH 
0_ERR0R  DB  OFFH, 57H, 0, 5, 4FH, 5, OFFH, 0, 5 

DB  "The  order  must  be  a  positive  integer.  Press  any  " 

DB  "key  to  continue.", OFFH, 56H, 5, "J", OFFH, 56H, 5, "M" 

DB  OFFH, 79, 25, ODH 

0_ERR0R_E  DB  OFFH, 57H, 0, 5, 4FH, 5, ODH 
I_ERROR  DB  OFFH , 57H ,0,5, 4FH , 5 , OFFH ,0,5 

DB  "The  number  of  iterations  must  be  a  positive  integer." 
DB  "  Press  any  " 

DB  "key  to  continue.", OFFH, 56H, 5, "J", OFFH, 56H, 5, "M" 

DB  OFFH, 79, 25, ODH 
ENTER_UP  DB  OFFH, 11, 5 , OFFH, 50H, 7 

DB  "Enter  Number  of  Stations:  ",0DH 
ENTER_NC  DB  OFFH, 11, 5, OFFH, 50H, 7 

DB  "Enter  Number  of  Channels:  ",0DH 
ENTER_NN  DB  OFFH, 14 , 5 , OFFH, 50H, 7 
DB  "Enter  Number  of  Nodes:  ",0DH 
ENTER_AMBF  DB  OFFH, 2 , 5 , OFFH, 50H, 7 

DB  "Maximum  Backoff  Delay  (slots):  ",0DH 
ENTER_PR  DB  OFFH, 14 , 5, OFFH, 50H, 7 
DB  "Propagation  Ratio:  ",0DH 
NN_ERROR  DB  OFFH, 57H, 0 , 5 , 4FH, 5 , OFFH, 0 , 5 

DB  "The  number  of  nodes  must  be  a  positive  integer  " 

DB  "greater  than  1  and  less  than  9 . " 

DB  OFFH, 56H, 5, "J" , OFFH, 56H, 5, "M" 
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II 


DB  OFFH, 79, 25, ODH 

UP_ERROR  DB  OFFH, 57H, 0, 5 , 4FH, 5 , OFFH, 0,5 

DB  "The  number  of  stations  must  be  a  positive  integer 
DB  "less  than  21." 

DB  OFFH, 56H, 5 , "J" , OFFH, 56H, 5 , "M" 

DB  OFFH, 79 , 25, ODH 

NC_ERROR  DB  OFFH, 57H, 0, 5, 4FH, 5 , OFFH, 0, 5 

DB  "The  number  of  channels  must  be  a  positive  integer  " 
DB  "less  than  11." 

DB  OFFH , 5  6H , 5 , " J " , OFFH , 5  6H , 5 , "M" 

DB  OFFH, 79, 25, ODH 
LEFT_F  DB  OFFH, 50H, OFH, OFFH, 0 , 5 
DB  "1  ", OFFH, 0,6 

DB  "2  ", OFFH, 0,7 

DB  "3  ", OFFH, 0,8 

DB  "4  ", OFFH, 0,9 

DB  "5  ", OFFH, 0,10 

DB  "6  ", OFFH, 0,11 

DB  "7  ", OFFH, 0,12 

DB  "8  " 

DB  ODH 

A_FLP_S  DB  OFFH, 50H, OFH 

DB  OFFH, 59H, 0 , 3 , 20, 77 , " n J  * — |",ODH 

DB  13 

DB  2 

DB  1 

DW  0 

DW  5 

A_N1  DW  99 
DB  ? 

DB  ? 

DB  OFFH 
DW  ? 

DB  OFFH, 50H, OFH 
DB  7  DUP  (?) 

A_FLP_NUMBER  DW  99 

DW  OFFSET  A_FLP_BUFFER 
DW  0 
DB  0 
DW  ? 

DW  ? 

DB  3  DUP  (?) 

DB  7  OH 
DW  F1_KEY 

DB  OFFH, 0,3, OFFH, 50H,70H, "FINISH" , ODH 
DB  1,0, 3, 5, 3,0 
Cl  DW  99  DUP  (?) 

A_FLP_BUFFER  DB  9400  DUP  (?) 

A_FLP_S2  DB  OFFH, 50H, OFH 

DB  OFFH, 59H, 0 , 4 , 8 , 77 , " n J  * — |",ODH 
DB  8 
DB  1 
DB  1 
DW  1 
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DW  8 

A_N2  DW  64 
DB  ? 

DB  ? 

DB  OFFH 
DW  ? 

DB  OFFH, 50H, OFH 
DB  7  DUP  (?) 

A_FLP_S3  DB  OFFH, 50H, OFH 

DB  OFFH, 59H, 0, 4 , 8 , 77 , M n J  1 — |",ODH 

DB  8 

DB  1 

DB  1 

DW  1 

DW  8 

DW  64 

DB  ? 

DB  ? 

DB  OFFH 
DW  ? 

DB  OFFH, 50H, OFH 
DB  7  DUP  (?) 

A_FLP_NUMBER2  DW  64 

DW  OFFSET  A_FLP_BUFFER2 
DW  0 
DB  0 
DW  ? 

DW  ? 

DB  3  DUP  (?) 

DB  7  OH 
DW  F1_KEY 

DB  OFFH, 0,4, OFFH, 50H, 70H, "FINISH" , ODH 
DB  1,0, 4, 5, 4,0 
C22  DW  64  DUP  (?) 

A_FLP_BUFFER2  DB  6580  DUP  (?) 

A_FLP_NUMBER3  DW  8 

DW  OFFSET  A_FLP_BUFFER3 
DW  0 
DB  0 
DW  ? 

DW  ? 

DB  3  DUP  (?) 

DB  7  OH 
DW  F1_KEY 

DB  OFFH, 1DH, 5, OFFH, 50H, 70H, "FINISH" , ODH 
DB  1, 1DH, 5, 22H, 5, 0 
C23  DW  64  DUP  (?) 

A_FLP_BUFFER3  DB  720  DUP  (?) 

A_FDP_NUMBER  DW  4 

DW  OFFSET  A_FDP_BUFFER 
DW  0 
DB  3 

DW  OFFSET  FUNCTI0N_KEY_HANDLER8 
DW  OFFSET  MOUSE  HANDLER8 
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DB  0 
DB  7  OH 
DW  F1_KEY 

DB  OFFH, 30, 5, OFFH, 50H, 70H, "FINISH" , ODH 
DB  1,35,7,40,7,0 
DC1  DW  4  DUP  (?) 

A_FDP_BUFFER  DB  150  DUP  (?) 

A_FLP_BOUND  DB  OFFH, 59H, 17H, 7 , 8 , 15 , " n J  ‘“I " 

DB  OFFH, 22, 8, "1", 26, "2  " 

DB  OFFH, 22, 9, "2", 26, "3  " 

DB  OFFH, 22, 10, "3", 26, "4  " 

DB  OFFH, 22, 11, "4", 26, "5  " 

DB  OFFH, 22 , 12, "5", 26, "6  " 

DB  OFFH, 22, 13, "6", 26, "7  " 

DB  OFFH, 22 , 14, "7", 26, "8  " 

DB  OFFH, 22, 15, "8", 26, "1  " 

DB  ODH 

A_FLP_NUMBER4  DW  16 

DW  OFFSET  A_FLP_BUFFER4 
DW  0 
DB  0 
DW  ? 

DW  ? 

DB  3  DUP  (?) 

DB  7  OH 
DW  F1_KEY 

DB  OFFH, 2 2H, 5, OFFH, 50H, 7 OH, "FINISH" , ODH 
DB  1, 22H, 5, 27H, 5, 0 
C24  DW  64  DUP  (?) 

A_FLP_BUFFER4  DB  1440  DUP  (?) 

A_FLP_B0UND2  DB  OFFH, 59H, 12 , 7 , 8 , 15 , " n J  1 — I” 

DB  OFFH, 11, 8, "1", 26, "2  " 

DB  OFFH, 11,9, "2", 26, "3  " 

DB  OFFH, 11, 10, "3", 26, "4  " 

DB  OFFH, 11, 11, "4", 26, "5  " 

DB  OFFH, 11, 12, "5", 26, "6  " 

DB  OFFH, 11, 13, "6", 26, "7  " 

DB  OFFH, 11, 14, "7", 26, "8  " 

DB  OFFH, 11, 15, "8", 26, "1  ",ODH 

A_FLP_B0UND3  DB  OFFH, 59H, 44 , 7 , 8 , 15 , " n J  1 — I" 

DB  OFFH, 43, 8, "1", 27, "2  " 

DB  OFFH, 43, 9, "2", 27,  "3  " 

DB  OFFH, 43, 10, "3", 27, "4  " 

DB  OFFH, 43, 11, "4", 27, "5  " 

DB  OFFH, 43 , 12 , "5" , 27 ,  "6  » 

DB  OFFH, 43, 13, "6", 27, "7  " 

DB  OFFH, 43, 14, "7", 27, "8  " 

DB  OFFH, 43, 15, "8", 27, "1  " 

DB  ODH 

A_FLP_B0UND4  DB  OFFH, 59H, 12 , 7 , 8 , 15 , " n J  I " 

DB  OFFH, 11, 8, "2", 26, "1  " 

DB  OFFH, 11, 9, "3", 26, "1  " 

DB  OFFH, 11, 10, "4", 26, "1  " 

DB  OFFH, 11, 11, "5", 26, "1  " 
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DB  OFFH, 11, 12, "6", 26, "1  " 

DB  OFFH, 11, 13, "7", 26, "1  " 

DB  OFFH, 11, 14 , M8" , 26 , "1  " 

DB  ODH 

A_FLP_BOUND5  DB  OFFH, 59H, 44 , 7 , 8 , 15 , " n  J  *—  I M 
DB  OFFH, 43, 8, Hl", 26, "2  M 
DB  OFFH, 4 3, 9, ”1M,26, "3  " 

DB  OFFH, 43 , 10 , Ml" , 26 , "4  " 

DB  OFFH, 43 , 11, "1" , 26 , "5  " 

DB  OFFH, 43, 12, "1", 26, "6  " 

DB  OFFH, 43, 13, "1", 26, M7  " 

DB  OFFH, 43 , 14 , "1" , 26 , M8  " 

DB  ODH 


LSD  DB  1 

DW  CONST 
DW  OFFSET  SBU 
DW  ? 

DW  ? 

DB  1 

DW  OFFSET  LSD1 


LSD1  DW 

OFFSET 

A3 

DW 

CONST 

DB 

1 

DB 

o 

• 

DW 

•> 

• 

DW 

OFFSET 

A4 

DW 

CONST 

DW 

OFFSET 

FCB1 

DW 

CONST 

DW 

OFFSET 

FCB2 

DW 

CONST 

DW 

OFFSET 

DISBU 

DW 

CONST 

A3  DB  "A:\COMMAND. COM", 0 
A4  DB  1,"  ” , ODH 
FCB1  DB  3 OH  DUP  (?) 

FCB2  DB  3 OH  DUP  (?) 

DISBU  DB  200  DUP  (?) 

SBU  DB  4000  DUP  (?) 

TY_BEEP1  DB  OFFH, 56H, 5 , "K" , OFFH, 56H, 5 , "L" , ODH 
CONST  ENDS 

EXTRN  INITIALIZE_FUNCTION_CONTROL: NEAR, FUNCTION_CONTROL: NEAR 

EXTRN  GETJCEYB0C0D2  :  NEAR ,  MONITOR_TYPE :  NEAR 

EXTRN  CLEAR_BUFFER_GET_KEY: NEAR, CLEAR  BUFFER: NEAR 

EXTRN  RESET_MONITOR_TYPE : NEAR, CLS : NEAR, CURSER_POSITION : NEAR 

EXTRN  CURRENT_CURSER : NEAR , SQUARE_INDEX : NEAR 

EXTRN  DOUBLE_DI SPLAY : NEAR , DOUBLE_DIS_LINE : NEAR 

EXTRN  SAVE_SCREEN : NEAR , RECOVER_S CREEN : NEAR , A_FLP_EDITOR : NEAR 

EXTRN  DOUBLE  DIS  LINE  OFF: NEAR 


EXTRN  SB_MOUSE_INPUT : NEAR , MOUSE_SETUP : NEAR , MOUSE_END : NEAR 
EXTRN  MOU S  E_FUN_I : NEAR , SET_MOUSE_CONFIG : NEAR 

EXTRN  LINE_EDITOR : NEAR , GET_MOUSE_STATE : NEAR 

EXTRN  FLP_NUMBER_EDITOR : NEAR , FDP_NUMBER_EDITOR : NEAR 

EXTRN  LFLP_ASC : NEAR , ULFLP_ASC : NEAR , LFDP_ASC : NEAR , ULFDP_ASC : NEAR 

EXTRN  LAF_ASC : NEAR , ULAF_ASC : NEAR , A_FDP_EDITOR : NEAR , LAD_ASC : NEAR 

EXTRN  ULAD_ASC : NEAR , ERAS E_AD_LAST : NEAR , CLEAR_BUFFER_GET_KEY2 : NEAR 

EXTRN  KEY_FUN_I : NEAR 

EXTRN  OPEN_FILE_READ : NEAR, CREATE_FILE : NEAR 
EXTRN  SET_RETURN_ADDRESS : NEAR , SET_CRITICAL_ADDRESS : NEAR 
EXTRN  READ_FROM_FILE: NEAR, CLOSE  FILE : NEAR, WRITE_TO_F I LE: NEAR 
EXTRN  GENERATE_PARITY : NEAR , RE LEAS E_MEMORY : NEAR , LOAD_PROGRAM : NEAR 
EXTRN  GET_PSP_SEGMENT : NEAR 

EXTRN  RUN_S I MU LATE : NEAR , CI_S 1 : NEAR , RE_S 1 : NEAR , POSTRUN_LINK : NEAR 


CODE  SEGMENT  'CODE'  PUBLIC 

ASSUME  CS : CODE , DS : CONST , ES : NOTHING , SS : STACK 

PUBLIC  NUMERI C_NUM_LOCK , NUMERIC_NUM_NOT_LOCK 

LINKNET  PROC  FAR 
PUSH  DS 
XOR  AX, AX 
PUSH  AX 
MOV  SI , 2CH 
MOV  SI,DS: [SI] 

PUSH  SI 

CALL  RELEASE_MEMORY 
POP  SI 

MOV  AX, CONST 
MOV  DS,AX 
MOV  ES, AX 
MOV  ENVIRON, SI 
CLD 

MOV  STACK_POINTER,SP 
CALL  MONITORJTYPE 
KOV  AL, 1 

CALL  SET_MOUSE_CONFIG 
CALL  MOUSE_SETUP 
CALL  COEF_EDIT_SETUP 
CALL  CLS 

MOV  SI, OFFSET  LOGO 
CALL  DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
GET_KEY1: 

CALL  CLS 

MOV  SI, OFFSET  ROOT_CONTROL 
CALL  INITIALIZ E_FUN CT I ON_CONTROL 
GET_KEY : 

MOV  SI, OFFSET  KEYBOARD_CONTROL_BUFFER 
CALL  GET  KEYBOCOD2 
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JAE  GET_KEY 

MOV  SI, OFFSET  ROOT_CONTROL 
CALL  FUNCTION_CONTROL 
JMP  GET_KEY 
RETURN_DOS : 

CALL  MOUSE_END 
CALL  RESET_MONITOR_TYPE 
CALL  CLS 
MOV  OX, 0 

CALL  CURSER_POS ITION 
RET 

LINKNET  ENDP 

COEF_EDIT_SETUP  PROC  NEAR 
MOV  BX, OFFSET  Cl 
MOV  DI, OFFSET  A_FLP_BUFFER 
MOV  CX, 99 
MOV  DX , 4  0 AH 
C2 : 

MOV  [BX] , 01 
PUSH  CX 
MOV  CX, 93 

MOV  SI, OFFSET  FLP_NUMBER 

REP  MOVSB 

MOV  ES:  [DI  *91]  ,DI 

MOV  ES: [DI-93] ,DI 

SUB  WORD  PTR  ES: [DI-91] , 31 

SUB  WORD  PTR  ES: [DI-93] , 67 

MOV  ES: [DI-60] , DX 

MOV  ES: [DI-64 ] , DX 

MOV  ES: [DI-62 ] , DX 

SUB  WORD  PTR  ES:[DI-62],7 

MOV  ES: [DI-24 ] , DX 

MOV  ES: [DI-26] , DX 

MOV  ES: [DI-28] ,DX 

ADD  WORD  PTR  ES: [DI-24], 4 

ADD  WORD  PTR  ES:[DI-26],2 

ADD  WORD  PTR  ES:[DI-28],4 

MOV  ES: [DI-84] ,DX 

INC  WORD  PTR  ES: [DI-84] 

CMP  DL, 70 
JC  CE9 
MOV  DL, OAH 
INC  DH 
JMP  CE10 
CE9: 

ADD  DL, 15 
CE10: 

INC  BX 
INC  BX 
POP  CX 
LOOP  C2 

MOV  SI, OFFSET  A_FLP_NUMBER 
MOV  DI, OFFSET  FIR_CF 


CALL  ULAF_ASC 

MOV  DI, OFFSET  FIR_CF+1403 

CALL  ULAF_ASC 

MOV  SI, OFFSET  FLP  NUMBER 
MOV  DI, OFFSET  AMPLITUDE_S IN 
MOV  CX,NUMBER_OF_DATA 
C3 : 

CALL  ULFLP_ASC 
ADD  DI , 15 
LOOP  C3 

MOV  SI, OFFSET  INTEGERN 
MOV  DI, OFFSET  ORDER_BW_CF 
MOV  CX,NUMBER_OF_INTEGER 
C4 : 

CALL  ULFDP_ASC 
ADD  DI , 5 
LOOP  C4 

MOV  SI, OFFSET  NB_ITERA 

MOV  DI, OFFSET  NUMBER_ITERATION 

CALL  ULFDP_ASC 

MOV  SI, OFFSET  INTEGERN 
MOV  DI, OFFSET  S_NN 
MOV  CX,NUMBER_0F_INTEGER2 
C5: 

CALL  ULFDP_ASC 
ADD  DI , 5 
LOOP  C5 

MOV  DI, OFFSET  S_NN 
MOV  BYTE  PTR  [DI+1],"2" 

MOV  SI, OFFSET  INTEGERN1 
MOV  DI, OFFSET  MA_AMBF 
MOV  CX, 3 
C765: 

CALL  ULFDP_ASC 
ADD  DI , 10 
LOOP  C765 

MOV  BX, OFFSET  C22 
MOV  DI, OFFSET  A_FLP_BUFFER2 
MOV  CX, 64 
MOV  DX, 508H 
CE21: 

MOV  [ BX] , DI 
PUSH  CX 
MOV  CX, 89 

MOV  SI, OFFSET  FLP_NUMBER2 

REP  MOVSB 

MOV  ES: [ DI-87 ] , DI 

MOV  ES: [DI-89] , DI 

SUB  WORD  PTR  ES :[ DI-87 ], 30 
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SUB  WORD  PTR  ES :[ DI-89 ], 63 

MOV  ES: [DI-56] , DX 

MOV  ES: [DI-60] ,DX 

MOV  ES:  [DI-58  ]  ,  DX 

SUB  WORD  PTR  ES:[DI-58],4 

MOV  ES: [DI-23] ,DX 

MOV  ES: [DI-25] , DX 

MOV  ES : [DI-27 ] , DX 

ADD  WORD  PTR  ES: [DI-23] ,3 

ADD  WORD  PTR  ES:[DI-25],2 

ADD  WORD  PTR  ES: [DI-27], 3 

MOV  ES: [DI-80] , DX 

INC  WORD  PTR  ES: [DI-80] 

CMP  DL, 68 
JC  CE22 
MOV  DL, 8 
INC  DH 
JMP  CE11 
CE22: 

ADD  DL, 9 
CE11: 

INC  BX 
INC  BX 
POP  CX 
LOOP  CE21 

MOV  SI, OFFSET  A_FLP_NUMBER2 
MOV  DI, OFFSET  ITM_S 
CALL  ULAF_ASC 

MOV  SI, OFFSET  A_FLP_NUMBER2 
MOV  DI, OFFSET  ITM_MA 
CALL  ULAF_ASC 

MOV  BX, OFFSET  C23 
MOV  DI, OFFSET  A_FLP_BUFFER3 
MOV  CX, 8 
MOV  DX, 8 2 OH 
CA21: 

MOV  [ BX ] , DI 
PUSH  CX 
MOV  CX, 89 

MOV  SI, OFFSET  F LP_NUMBER 2 

REP  MOVSB 

MOV  ES: [DI-87 ] , DI 

MOV  ES: [DI-89] ,DI 

SUB  WORD  PTR  ES : [DI-87 ], 30 

SUB  WORD  PTR  ES :[ DI-89 ], 63 

MOV  ES: [DI-56] ,DX 

MOV  ES: [DI-60] , DX 

MOV  ES: [DI-58] , DX 

SUB  WORD  PTR  ES:[DI-58],4 

MOV  ES: [DI-23] ,DX 

MOV  ES: [DI-25] ,DX 

MOV  ES: [DI-27] , DX 

ADD  WORD  PTR  ES:[DI-23],3 


ADD  WORD  PTR  ES:[DI-25],2 
ADD  WORD  PTR  ES:[DI-27],3 
MOV  ES: [ DI-80 ] , DX 
INC  WORD  PTR  ES: [DI-80] 

INC  DH 
INC  BX 
INC  BX 
POP  CX 
LOOP  CA21 

MOV  SI  OFFSET  A_FLP_NUMBER3 
MOV  DI, OFFSET  LC_UL 
CALL  ULAF_ASC 

MOV  BX, OFFSET  C24 
MOV  DI, OFFSET  A_FLP_BUFFER4 
MOV  CX, 16 
MOV  DX, 815H 
CB21: 

MOV  [BX] , DI 
PUSH  CX 
MOV  CX, 89 

MOV  SI, OFFSET  FLP_NUMBER2 

REP  MOVSB 

MOV  ES: [ DI-87 ] , DI 

MOV  ES:  [ DI— 89 ]  ,  DI 

SUB  WORD  PTR  ES :[ DI-87 ], 30 

SUB  WORD  PTR  ES : [ DI-8S ] , 63 

MOV  ES: [DI-56] , DX 

MOV  ES: [ DI-60 ] , DX 

MOV  ES: [ DI-58 ] , DX 

SUB  WORD  PTR  ES:[DI-58],4 

MOV  ES : [DI-23 ] , DX 

MOV  ES : [DI-25] , DX 

MOV  ES: [DI-27] , DX 

ADD  WORD  PTR  ES: [DI-23], 3 

ADD  WORD  PTR  ES: [DI-25], 2 

ADD  WORD  PTR  ES:[DI-27],3 

MOV  ES: [DI-80] ,DX 

INC  WORD  PTR  ES: [DI-80] 

CMP  DL, 30 
JC  CB22 
MOV  DL, 15H 
INC  DH 
JMP  CB11 
CB22: 

ADD  DL, 20H 
CB11: 

INC  BX 
INC  BX 
POP  CX 
LOOP  CB21 

MOV  SI, OFFSET  A_FLP_NUMBER4 
MOV  DI, OFFSET  LC_BL 


CALL  ULAF_ASC 

MOV  SI, OFFSET  A_FLP_NUMBER4 
MOV  DI, OFFSET  LC_S 
CALL  ULAF_ASC 

MOV  BX, OFFSET  DC1 
MOV  DI, OFFSET  A_FDP_BUFFER 
MOV  CX, 4 
CD1: 

MOV  [BX] , DI 
PUSH  CX 

MOV  SI, OFFSET  INTEGERN 
MOV  CX, 31 
REP  MOVSB 
POP  CX 
INC  BX 
INC  BX 
LOOP  CD1 

MOV  DX, 0C33H 

MOV  DI, OFFSET  A_FDP_BUFFER 

CALL  SET_CUR 

ADD  DI , 31 

MOV  DH, 14 

CALL  SET_CUR 

ADD  DI , 31 

MOV  DH, 14H 

CALL  SET_CUR 

ADD  DI ,31 

MOV  DH, 16H 

CALL  SET_CUR 

MOV  SI, OFFSET  A_FDP_NUMBER 
MOV  DI, OFFSET  PB_NM 
CALL  ULAD_ASC 
MOV  BYTE  PTR  [DI+4],"0” 

MOV  BYTE  PTR  [DI+9],"0" 

MOV  BYTE  PTR  [DI+14  3,"0,, 
MOV  BYTE  PTR  roi+19 ] , "0" 
RET 


SET_CUR: 

MOV  [DI+3 ] , DX 

ADD  BYTE  PTR  [DI+3], 2 

MOV  [DI+5] , DX 

MOV  [DI+7  ]  ,  DX 

ADD  BYTE  PTR  [DI+7], 2 

MOV  [DI+22 ] , DX 

RET 

COEF_EDIT_SETUP  ENDP 

MOUSE_HANDLER  PROC  NEAR 
TEST  CH, 1 
JZ  TY12 
TEST  BL, 3 
JZ  TY12 


MOV  SI /OFFSET  ROOT_CONTROL 
CALL  SB_MOUSE_INPUT 
MOV  SP,STACK_POINTER 
JMP  GET_KEY 
TY12: 

RET 

MOUSE_HANDLER  ENDP 

QUIT_HANDLER  PROC  NEAR 

MOV  SI, OFFSET  ROOT_STACKl 
MOV  BYTE  PTR  [SI],1 

MOV  WORD  PTR  [SI+3 ] /OFFSET  ROOT_STACKl+5 

MOV  SI, OFFSET  ROOT_STACK_MESSl 

MOV  BYTE  PTR  [SI+15],0DH 

MOV  SP,STACK_POINTER 

MOV  AX, OFFSET  GET_KEY1 

JMP  AX 

QUIT_HANDLER  ENDP 

EXIT_HANDLER  PROC  NEAR 
MOV  AX, CONST 
MOV  DS,AX 

MOV  SP,STACK_POINTER 
MOV  AX, OFFSET  RETURN_DOS 
JMP  AX 
RET 

EXIT_HANDLER  ENDP 

DEMODULATOR_SET  PROC  NEAR 
MOV  DEMOD_CON , AH 
CALL  DISPLAY_DEMOD 
RET 

DEMODULATOR_SET  ENDP 

RUN_S 1  PROC  NEAR 
PUSH  AX 

MOV  SI, OFFSET  S_INTEGE 
CALL  DOUBLE_DI S_LI NE 
CF25 : 

MOV  SI, OFFSET  S_NI 

CALL  DOUBLE_DIS_LINE 

MOV  DI, OFFSET  NUMBER_ITERATION 

MOV  SI, OFFSET  NB_ITERA 

CALL  LFDP_ASC 

CALL  FDP_NUMBER_EDITOR 

MOV  AX, OFFSET  I_ERROR 

CALL  ERROR_ DETECT 

JC  CF25 

CALL  ULFDP_ASC 
POP  AX 

CALL  RUN_S I MU LAT E 
RET 

RUN_S1  ENDP 
ENCODER  SET  PROC  NEAR 
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MOV  ECD_CON , AH 
CALL  ED_CONSISTENT 
CALL  DISPLAY_ECD 
CALL  DISPLAY_DCD 
CALL  DISABLE_ED 
RET 

ENCODER_SET  ENDP 

DECODER_SET  PROC  NEAR 
MOV  DCD_CON , AH 
CALL  DE_CONS I STENT 
CALL  DISPLAY_ECD 
CALL  DISPLAY_DCD 
CALL  DISABLE_ED 
RET 

DECODER_SET  ENDP 

ED_CONSISTENT  PROC  NEAR 
CMP  ECD_CON , 1 
JZ  ESDP1 
CMP  ECD_CON , 2 
JZ  ESDP2 
CMP  ECD_CON , 3 
JZ  ESDP2 
CMP  ECD_CON , 5 
JZ  ESDP3 
RET 
ESDP1 : 

MOV  DCD_CON , 1 
RET 
ESDP2 : 

CMP  DCD_CON , 2 
JNZ  ESDP4 
RET 
ESDP4 : 

CMP  DCD_CON , 3 
JNZ  ESDP5 
RET 
ESDP5: 

MOV  DCD_CON , 0 
RET 
ESDP3 : 

MOV  DCD_CON , 4 
RET 

ED_CONSISTENT  ENDP 

DE_CONSISTENT  PROC  NEAR 
CMP  DCD_CON , 1 
JZ  DSEP1 
CMP  DCD_CON , 2 
JZ  DSEP2 
CMP  DCD_CON , 3 
JZ  DSEP2 
CMP  DCD_CON , 4 
JZ  DSEP3 
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RET 

DSEP1: 

MOV  ECD_CON, 1 
RET 
DSEP2 : 

CMP  ECD_CON ,  2 
JNZ  DSEP4 
RET 
DSEP4 : 

CMP  ECD_CON , 3 
JNZ  DSEP5 
RET 
DSEP5: 

MOV  ECD_CON,0 
RET 
DSEP3 : 

CMP  ECD_CON , 5 
JNZ  DSEP5 
RET 

DE_CONSISTENT  ENDP 

R_CONFIG_S 1  PROC  NEAR 

MOV  STACK_POINTERl,SP 
CALL  F I LE_PRE PARE 
MOV  DX, OFFSET  A10 
CALL  OPEN_FILE_READ 
MOV  FILE_HANDLE , AX 
MOV  CX , N_B+2 
MOV  BX,AX 
MOV  DX, OFFSET  SBU 
CALL  READ_FROM_FI LE 
MOV  BX , FILE_HANDLE 
CALL  CLOSE_FILE 

MOV  SI, OFFSET  SBU 
MOV  CX , N_B 
CALL  GENERATE_PARITY 
CMP  [SI], AX 
JZ  RE12 

MOV  SI, OFFSET  IL_COF 
CALL  DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
CALL  GET_MOU S  E_ST ATE 
RET 
RE12 : 

MOV  SI, OFFSET  SBU 

MOV  DI, OFFSET  LINK_NET 

MOV  CX , N_B 

REP  MOVSB 

CALL  DI S  PLAY_CON 

CALL  DISABLE_ED 

RET 

R  CONFIG  SI  ENDP 


FILE  PREPARE  PROC  NEAR 


MOV  SI, OFFSET  ENTER_FILE 

CALL  DOUBLE_DIS_LINE 

MOV  SI, OFFSET  FILE_NAME 

CALL  LINE_EDITOR 

PUSH  DS 

MOV  AX, CODE 

MOV  DS, AX 

MOV  SI, OFFSET  ERROR_HANDLER 
CALL  SET_RETURN_ADDRESS 
CALL  SET_CRITICAL_ADDRESS 
POP  DS 

MOV  SI, OFFSET  A10-1 
MOV  AL, ODH 
R12: 

INC  SI 
CMP  [SI] ,AL 
JNZ  R12 

MOV  BYTE  PTR  [SI],0 
RET 

F I LE_PRE PARE  ENDP 

S_CONFIG_Sl  PROC  NEAR 

MOV  STACK_POINTERl , SP 
CALL  F I LE_PRE PARE 
MOV  DX, OFFSET  A10 
CALL  CREATE_F I LE 
MOV  FILE_HANDLE , AX 

MOV  SI, OFFSET  LINK_NET 
MOV  DI, OFFSET  SBU 
MOV  CX,N_B 
REP  MOVSB 
MOV  SI, OFFSET  SBU 
MOV  CX , N_B 
CALL  GENERATE_PARITY 
MOV  [SI], AX 

MOV  CX,N_B+2 
MOV  BX,FILE_HANDLE 
MOV  DX, OFFSET  SBU 
CALL  WRITE_TO_FILE 
MOV  BX, FILE_HANDLE 
CALL  CLOSE  FILE 
RET 

S_CONFIG_Sl  ENDP 

R  NETCON_Sl  PROC  NEAR 

MOV  STACK_POINTERl , SP 
CALL  FILE_PREPARE 
MOV  DX, OFFSET  A10 
CALL  OPEN_FILE_READ 
MOV  FI LE_HANDLE , AX 
MOV  CX,NC_N_B+2 
MOV  BX, AX 
MOV  DX, OFFSET  SBU 


CALL  READ_FROM_FILE 
MOV  BX,FILE_HANDLE 
CALL  CLOSE_FILE 

MOV  SI, OFFSET  SBU 
MOV  CX,NC_N_B 
CALL  GENERATE_PARITY 
CMP  [SI], AX 
JZ  RE 3 5 

MOV  SI, OFFSET  IL_COF 
CALL  DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
CALL  GET_MOU S  E_STATE 
RET 
RE35: 

MOV  SI, OFFSET  SBU 
MOV  DI, OFFSET  NET_CON 
MOV  CX, NC_N_B 
REP  MOVSB 

CALL  DISPLAY_NETCON 
RET 

R_NETCON_S 1  ENDP 

S_NETCON_Sl  PROC  NEAR 

MOV  STACK_POINTERl , SP 
CALL  F I LE_PREPARE 
MOV  DX, OFFSET  A10 
CALL  CREAT  E_F I LE 
MOV  FILE_HANDLE , AX 

MOV  SI, OFFSET  NET_CON 
MOV  DI, OFFSET  SBU 
MOV  CX,NC_N_B 
REP  MOVSB 
MOV  SI, OFFSET  SBU 
MOV  CX,NC_N_B 
CALL  GENERATE_PARITY 
MOV  [SI], AX 

MOV  CX,NC_N_B+2 
MOV  BX, FILE_HANDLE 
MOV  DX, OFFSET  SBU 
CALL  WRITE_TO_FILE 
MOV  BX , FILE_HANDLE 
CALL  CLOSE_FILE 
RET 

S_NETCON_S 1  ENDP 

SOURCE_SET  PROC  NEAR 
PUSH  AX 
AND  AH, OFH 
MOV  SOU_CON , AH 
PUSH  AX 

CALL  DISPLAY  SOU 


MOV  SI, OFFSET  S_P  NUMB 

CALL  DOUBLE_DIS_LINE 

POP  AX 

CMP  AH, 2 

JAE  S13 

POP  AX 

MOV  SI, OFFSET  ENTER_BITR 
MOV  DI, OFFSET  BIT  RATE 
JMP  S12 
S13: 

CMP  AH, 4 
POP  AX 
JC  S14 

MOV  SI, OFFSET  ENTER_NO 
MOV  DI, OFFSET  SOU_NO 
JMP  S12 
S14: 

TEST  AH, 10H 
JZ  Sll 

MOV  SI, OFFSET  ENTER_AMPL 
AND  AH, OFH 
CMP  AH, 2 
JNZ  S3 3 

MOV  DI, OFFSET  AMPLITUDE_S IN 
JMP  S12 
S33: 

MOV  DI, OFFSET  AMPLITUDE_SW 
JMP  S12 
Sll: 

MOV  SI, OFFSET  ENTER_FREQ 
AND  AH, OFH 
CMP  AH, 2 
JNZ  S34 

MOV  DI, OFFSET  FREQUENCY_S IN 
JMP  S12 
S34: 

MOV  DI, OFFSET  FREQUENCY_SW 
S12: 

CALL  DOUBLE_DIS_LINE 
CALL  ENTER_NUMBER 
RET 


ENTER_NUMBER: 

MOV  SI, OFFSET  FLP_NUMBER 

PUSH  DI 

CALL  LFLP_ASC 

AND  BYTE  PTR  [SI+12],0FEH 

MOV  DI, [SI] 

AND  BYTE  PTR  [DI+13],0CFH 
XOR  BYTE  PTR  [DI+13],20H 
CALL  FLP_NUMBER_EDITOR 
POP  DI 

CALL  ULFLP_ASC 
RET 
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SOURCE  SET  ENDP 


ENTER_NUMBER1  PROC  NEAR 

MOV  SI  OFFSET  FLP_NUMBER 

PUSH  DI 

CALL  LFLP_ASC 

AND  BYTE  PTR  [SI+12],0FEH 

MOV  DI, [SI] 

AND  BYTE  PTR  [DI+13],0CFH 
CALL  FLP_NUMBER_E D I TOR 
POP  DI 

CALL  ULFLP_ASC 
RET 

ENTER_NUMBER1  ENDP 

ORDER_SET  PROC  NEAR 

MOV  SI, OFFSET  CF_BW_T 
TEST  AH, 8 OH 
JZ  OSP1 
ADD  SI, 4 
OSP1: 

MOV  BL, 1 
TEST  AH, 4 OH 
JZ  OSP2 
MOV  BL, 2 
OSP2: 

PUSH  AX 
AND  AH, OFH 
MOV  AL, AH 
SUB  AL, 3 
XOR  AH, AH 
ADD  SI, AX 

MOV  BYTE  PTR  [SI],BL 
POP  AX 
TEST  AH, 8 OH 
JZ  OSP3 

CALL  DI S PLA Y_RFT 
RET 
OSP3: 

CALL  DISPLAY_CFT 
RET 

ORDER_SET  ENDP 

L_COUNT_BYTE  EQU  18 
L_DATA_START  EQU  27 
L_SECOND_DATA  EQU  28 

FILTERJSET  PROC  NEAR 
MOV  BH, AH 
MOV  BL, AH 
AND  AH, 07H 
TEST  BH, 80H 
JNZ  FS1 

CALL  CHANNEL_FILTER_SET 
RET 


FS1: 

CALL  RECEIVER_FILTER_SET 
RET 

CHANNE  L_F I LTER_S ET : 

PUSH  BX 
MOV  CF_CON , AH 
CALL  DISPLAY_CF 
RF3 : 

POP  BX 
MOV  AH, BH 
AND  AH, OFH 
CMP  AH, 1 
JNZ  CFOA9 
RET 
CFOA9 : 

CMP  AH, 7 
JNZ  CFOAIO 
RET 

CFOAIO : 

TEST  BH , 4  OH 
JNZ  CFOA1 
CALL  CF_ORDER_SET 
RET 
CFOA1 : 

CALL  CF_ATTENUAT I ON_S ET 
RET 

CF_ORDER_SET: 

PUSH  BX 
TEST  BH , 3  OH 
JNZ  CF1 

MOV  SI, OFFSET  S_INTEGE 
CALL  DOUBLE_DIS_LINE 
POP  BX 

MOV  DI, OFFSET  ORDER_BW_CF 
CALL  CF_DIAD2 
CF21: 

TEST  BH , 8  OH 
JZ  CF31 
CMP  RF_CON , 6 
JNZ  CF32 
JMP  CF33 
CF31: 

CMP  CF_CON,6 
JNZ  CF32 
CF33 : 

MOV  SI, OFFSET  E_ORDER_ODD 
JMP  CF34 
CF32: 

MOV  SI, OFFSET  E_ORDER 
CF34 : 

CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  INTEGERN 
CALL  LFDP  ASC 


CALL  FDP_NUMBER_EDITOR 
MOV  AX, OFFSET  0_ERR0R 
CALL  ERROR_DETECT 
JC  CF21 

CALL  ULFDP_ASC 
RET 
CF1: 

MOV  SI, OFFSET  S_P_NUMB 
CALL  DOUBLE_DIS_LINE 
POP  BX 

MOV  DI, OFFSET  SF_BW_CF 
CALL  CF_DIAD 
PUSH  BX 
AND  BH , 3  OH 
CMP  BH, 10H 
JZ  CF2 
CMP  BH , 2  OH 
JZ  CF10 
POP  BX 
MOV  AH, BH 
AND  AH, OFH 
CMP  AH, 6 
JNZ  CFIO 
CALL  ENTER_COEF 
RET 
CFIO: 

POP  BX 

MOV  SI, OFFSET  E_CUTOFF 
ADD  DI , 15 
JMP  CF3 
CF2 : 

POP  BX 

MOV  SI, OFFSET  E_SAMPLE 
CF3 : 

CALL  DOUBLE_DIS_LINE 
CALL  ENTER_NUMBER 
RET 

ERROR_DETECT : 

CMP  BYTE  PTR  [SI+L_COUNT_BYTE] , 1 
JNZ  CF22 

CALL  ORDER_ERROR 
JMP  CF23 
CF22 : 

CMP  BYTE  PTR  [SI+L_COUNT_BYTE] , 2 
JNZ  CF24 

CMP  BYTE  PTR  [SI+L_DATA_START+1] , "0" 
JNZ  CF24 

CALL  ORDER_ERROR 
CF23: 

STC 

RET 

CF24: 

CUC 

RET 
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ORDER_ERROR: 

PUSH  SI 
MOV  SI, AX 

CALL  DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
MOV  SI, OFFSET  0_ERR0R_E 
CALL  DOUBLE_DIS_LINE_OFF 
POP  SI 
RET 

CF_ATTENUATION_SET : 

PUSH  BX 

MOV  SI, OFFSET  S_P_NUMB 
CALL  DOUBLE_DIS_LINE 
POP  BX 

MOV  DI, OFFSET  SF_BW_CF+30 

CALL  CF_DIAD 

PUSH  BX 

TEST  BH, 3 OH 

JNZ  CF5 

MOV  SI, OFFSET  E_SAMPLE 
JMP  CF6 
CF5 : 

TEST  BH, 10H 
JNZ  CF7 

MOV  SI, OFFSET  E_PA 
ADD  DI ,45 
JMP  CF6 
CF7 : 

TEST  BH , 2  OH 
JNZ  CF8 
TEST  BL,8 
JZ  CF9 

MOV  SI, OFFSET  E_STOEDG 
ADD  DI , 30 
JMP  CF6 
CF9 : 

MOV  SI, OFFSET  E_PASEDG 
ADD  DI , 15 
JMP  CF6 
CF8 : 

MOV  SI, OFFSET  E_SA 
ADD  DI , 60 
CF6: 

CALL  DOUBLE_DIS_LINE 
CALL  ENTER_NUMBER 
POP  BX 
RET 


CF_DIAD: 

TEST  BH , 8  OH 
JZ  CF973 


ADD  DI , 420 
CF973 : 

MOV  AH, BH 
AND  AH, 07H 
CMP  AH, 3 
JZ  CF974 
CMP  AH, 5 
JZ  CF975 
CMP  AH, 6 
JZ  CF955 
ADD  DI , 105 
JMP  CF974 
CF955 : 

ADD  DI , 315 
JMP  CF974 
CF975 : 

ADD  DI , 210 
CF974 : 

RET 


CF_DIAD2 : 

TEST  BH , 8  OH 
JZ  CF976 
ADD  DI , 25 
CF976 : 

MOV  AH, BH 
AND  AH, 07H 
CMP  AH, 2 
JZ  CF979 
CMP  AH, 3 
JZ  CF977 
CMP  AH, 5 
JZ  CF978 
CMP  AH, 6 
JZ  CF980 
ADD  DI , 5 
JMP  CF977 
CF979: 

ADD  DI , 15 
JMP  CF977 
CF980 : 

ADD  DI , 20 
JMP  CF977 
CF978 : 

ADD  DI , 10 
CF977 : 

RET 


RECE I VER_FI LTER_S ET : 
PUSH  BX 
MOV  RF_CON , AH 
CALL  DISPLAY  RF 


MOV  AX /OFFSET  RF3 

JMP  AX 

RET 

FILTER_SET  ENDP 

SQ_INDEX_NR  EQU  7 
SQ_INDEX_NC  EQU  8 
SQ_INDEX_TNE  EQU  23 
SQ_INDEX_NEPR  EQU  21 
SQ_INDEX_NEPWR  EQU  25 

ENTER_COEF  PROC  NEAR 

MOV  SI, OFFSET  FI_CF_0 
MOV  DI, OFFSET  FIR_CF 
TEST  BH,80H 
JZ  EC1 

MOV  SI, OFFSET  FI_RF_0 
ADD  DI , 1403 
EC1: 

CALL  COMPUTE_NUMBER 

PUSH  DI 
PUSH  AX 

MOV  SI, OFFSET  A_FLP_S 
MOV  DS : [ S I+SQ_INDEX_TNE ] , AX 
MOV  DL, 5 
DIV  DL 
CMP  AH, 0 
JZ  G1 
INC  AL 
61: 

MOV  DS: [SI+SQ_INDEX_NR] ,AL 

MOV  SI, OFFSET  SBU 
CALL  SAVE_SCREEN 
CALL  CLS 

MOV  SI, OFFSET  A_FLP_S 
CALL  SQUARE_INDEX 
MOV  SI, OFFSET  A_NUMBER 
CALL  DOUBLE_DIS_LINE 
POP  AX 
POP  DI 

MOV  SI, OFFSET  A_FLP_NUMBER 

CALL  LAF_ASC 

MOV  [SI], AX 

CALL  A_FLP_EDITOR 

CALL  ULAF_ASC 

MOV  SI, OFFSET  SBU 

CALL  RECOVER_SCREEN 

RET 

COMPUTE_NUMBER : 

INC  SI 
MOV  DL, 10 
XOR  CH,CH 
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XOR  AX, AX 
CN1: 

CMP  BYTE  PTR  DS:[SI],ODH 
JZ  CN2 
MUL  DL 

MOV  CL,DS: [SI] 

SUB  CL, 3 OH 
ADD  AX, CX 
INC  SI 
JMP  CN1 
CN2: 

RET 

ENTER_COEF  ENDP 

CHANNEL_SET  PROC  NEAR 
MOV  CHL_CON , AH 
CALL  DISPLAY_CHL 
CMP  CHL_CON , 1 
JZ  CS1 

CMP  CHL_CON , 4 
JZ  CS1 

CMP  CHL_CON , 2 
JZ  CS2 

MOV  SI, OFFSET  S_P_NUMB 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  ENTER_ER 
MOV  DI, OFFSET  CHL_ER 
CALL  DOUBLE_DIS_LINE 
CALL  ENTER_NUMBER 
RET 
CS2: 

MOV  SI, OFFSET  S_NUMBER 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  ENTER_NO 
MOV  DI, OFFSET  CHL_N0 
CALL  DOUBLE_DIS_LINE 
CALL  ENTER_NUMBER1 
CS1: 

RET 

CHANNEL  SET  ENDP 


PM_DISPLAY  PROC  NEAR 
MOV  CHL_CON , 4 
CALL  DISPLAY_CHL 
RET 

PM  DISPLAY  ENDP 


PM_SET  PROC  NEAR 
PM_CF : 

MOV  SI, OFFSET 
MOV  DI, OFFSET 
JMP  PM_SET1 
PM_DS : 

MOV  SI, OFFSET 
MOV  DI, OFFSET 


CFM 

PM  CONST+75 


DBTR 

PM  CONST+90 
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JMP  PM  SET1 
PM_AT_H_T:“ 

MOV  SI, OFFSET  TAH 
MOV  DI, OFFSET  PM_CONST 
JMP  PM_SET1 
PM_AT_H_R: 

MOV  SI, OFFSET  RAH 
MOV  DI, OFFSET  PM  CONST+15 
JMP  PM_SET1 
PM_AT_G_T: 

MOV  SI, OFFSET  TAG 
MOV  DI, OFFSET  PM_CONST+45 
JMP  PM_SET2 
PM_AT_G_R: 

MOV  SI, OFFSET  RAG 
MOV  DI, OFFSET  PM_CONST+60 
JMP  PM_SET2 
PM_POWER: 

MOV  SI, OFFSET  TAP 
MOV  DI, OFFSET  PM_CONST+30 
JMP  PM_SET1 
PM_NOISE : 

MOV  SI, OFFSET  RNT 
MOV  DI, OFFSET  PM_CONST+105 
JMP  PM_SET2 
PM_AREA : 

AND  AH, 1 
AND  PM_CON , OFEH 
XOR  PM_CON , AH 
RET 

PM_FOLIAGE : 

AND  AK,2 
AND  PM_CON , OFDH 
XOR  PM_CON , AH 
RET 

PM_BANDWIDTH: 

MOV  SI, OFFSET  RBW 
MOV  DI, OFFSET  PM_CONST+120 
PM_SET1 : 

PUSH  DI 
PUSH  SI 

MOV  SI, OFFSET  S_P_NUMB 
CALL  DOUBLE_DIS_LINE 
POP  SI 

CALL  DOUBLE_DIS_LINE 
POP  DI 

CALL  ENTER_NUMBER 
RET 


PM_SET2 : 

PUSH  DI 
PUSH  SI 

MOV  SI, OFFSET  S_NUMBER 
CALL  DOUBLE  DIS  LINE 
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POP  SI 

CALL  DOUBLE_DIS_LINE 
POP  DI 

CALL  ENTER_NUMBER1 
RET 

PM_SET  ENDP 

MODULATOR_SET  PROC  NEAR 
MOV  MOD_CON , AH 
CALL  DISPLAY_MOD 
RET 

MODULATOR_SET  ENDP 

DISPLAY_CON  PROC  NEAR 

MOV  SI, OFFSET  CON_SCREEN 

CALL  DOUBLE_DI SPLAY 

CALL  DI S PLAY_S OU 

CALL  DISPLAY_MOD 

CALL  DISPLAY_ECD 

CALL  DISPLAY_CF 

CALL  DISPLAY_RF 

CALL  DI S  PLA Y_DCD 

CALL  DISPLAY_DEMOD 

CALL  DISPLAY_CHL 

RET 

DI S  PLAY_CON  ENDP 

DISPLAY_MOD  PROC  NEAR 

MOV  SI, OFFSET  MOD_UDF 
MOV  DI, OFFSET  MOD_P 
MOV  AL,MOD_CON 
CALL  DISPLAY_ITEM 
CALL  BLOCKJTEST 
RET 

DI S PLAY_MOD  ENDP 

DISPLAY_ECD  PROC  NEAR 

MOV  SI, OFFSET  ECD_UDF 
MOV  DI, OFFSET  ECD_P 
MOV  AL,  ECD__CON 
CALL  DISPLAY_ITEM 
RET 

DISPLAY_ECD  ENDP 

DISPLAY_SOU  PROC  NEAR 

MOV  SI, OFFSET  SOU_UDF 
MOV  DI, OFFSET  SOU_P 
MOV  AL, SOU_CON 
CALL  DISPLAY_ITEM 
CALL  BLOCK_TEST 
RET 

DISPLAY_SOU  ENDP 

DISPLAY_DCD  PROC  NEAR 

MOV  SI, OFFSET  DCD_UDF 


MOV  DI, OFFSET  DCD_P 
MOV  AL , DCD_CON 
CALL  DI S PLA Y_ITEM 
RET 

DISPLAY_DCD  ENDP 

DISPLAY_CF  PROC  NEAR 

MOV  SI, OFFSET  CF_UDF 
MOV  DI, OFFSET  CF_P 
MOV  AL, CF_CON 
CALL  DISPLAY_ITEM 
CALL  DISPLAY_CFT 
CALL  BLOCK_TEST 
RET 

DISPLAY_CF  ENDP 

BLOCK_TEST  PROC  NEAR 

MOV  SI, OFFSET  OD_Sl+17 
AND  BYTE  PTR  [SI],OFEH 
CMP  MOD_CON , 0 
JZ  BLOCK_PLOT 4 
CMP  MOD_CON , 1 
JZ  BLOCK_PLOT4 
CMP  MOD_CON , 9 
JZ  BLOCK_PLOT4 
CMP  MOD_CON ,10 
JZ  BLOCK_PLOT4 
CMP  CHL_CON , 3 
JZ  BLOCK_PLOT4 
CMP  SOU_CON , 2 
JZ  BLOCK_PLOT4 
XOR  BYTE  PTR  [SI],1 
BLOCK_PLOT4 : 

MOV  SI, OFFSET  VD_Sl+5 
MOV  DI, OFFSET  OD_Sl+5 
AND  BYTE  PTR  [SI],0FEH 
AND  BYTE  PTR  [DI],0FEH 
CMP  SOU_CON , 1 
JNZ  BLOCK_PLOT 
XOR  BYTE  PTR  [SI],1 
XOR  BYTE  PTR  [DI],1 
BLOCK_PLOT : 

MOV  DI, OFFSET  OD_Sl+29 
AND  BYTE  PTR  [DI],0FEH 
CMP  CHL_CON , 3 
JZ  BLOCK_PLOT5 
CMP  CF_CON , 0 
JZ  TEST21 
CMP  CF_CON , 1 
JZ  TEST21 
UNBLOCK1 : 

XOR  BYTE  PTR  [DI],1 
JMP  BLOCK  PLOTS 


TEST21: 

CMP  RF_CON , 0 
JZ  BL0CK_PL0T5 
CMP  RF_CON , 1 
JNZ  UNBL0CK1 
BLOCK_PLOT  5 : 

MOV  SI, OFFSET  VD_S1+17 
AND  BYTE  PTR  [SI],OFEH 
CMP  CF_CON , 0 
JZ  BLOCK_PLOT 1 
CMP  CF_CON , 1 
JZ  BLOCK_PLOT 1 
CMP  CHL_CON , 3 
JZ  BLOCK_PLOT 1 
XOR  BYTE  PTR  [SI],1 
BLOCK_PLOTl: 

MOV  SI, OFFSET  VD_Sl+29 
AND  BYTE  PTR  [SI],OFEH 
CMP  RF_CON , 0 
JZ  BLOCK_PLOT2 
CMP  RF_CON , 1 
JZ  BLOCK_PLOT2 
CMP  CHL_CON , 3 
JZ  BLOCK_PLOT2 
XOR  BYTE  PTR  [SI],1 
BLOCK_PLOT2 : 

RET 

BLOCK_TEST  ENDP 

DISPLAY_CFT  PROC  NEAR 
CMP  CF_CON,0 
JNZ  DCFT1 
RET 
DCFT1: 

CMP  CF_CON, 1 
JNZ  DCFT2 
RET 
DCFT2: 

MOV  SI, OFFSET  CF_BW_T 

MOV  BL,CF_CON 

SUB  BL, 3 

XOR  BH, BH 

MOV  AL, [SI+BX] 

MOV  SI, OFFSET  CFT_UDF 
MOV  DI, OFFSET  CFT_P1 
CMP  BL, 3 
JNZ  DCT1 

MOV  DI, OFFSET  CFT_P2 
DCT1: 

CALL  DIS  PLA Y_ITEM 
RET 

DISPLAY  CFT  ENDP 


DISPLAY_RF  PROC  NEAR 

MOV  SI, OFFSET  RF_UDF 
MOV  DI, OFFSET  RF_P 
MOV  AL,RF_CON 
CALL  DISPLAY_ITEM 
CALL  DISPLAY_RFT 
CALL  BLOCK_TEST 
RET 

DISPLAY_RF  ENDP 

DISPLAY_RFT  PROC  NEAR 
CMP  RF_CON , 0 
JNZ  DRFT1 
RET 
DRFT1 : 

CMP  RF_CON, 1 
JNZ  DRFT2 
RET 
DRFT2 : 

MOV  SI, OFFSET  CF_BW_T+4 

MOV  BL,RF_CON 

SUB  BL, 3 

XOR  BH,  BH 

MOV  AL, [SI+BX] 

MOV  SI, OFFSET  RFT_UDF 
MOV  DI, OFFSET  RFT_P1 
CMP  BL, 3 
JNZ  DRT1 

MOV  DI, OFFSET  RFT_P2 
DRT1: 

CALL  DISPLAY_ITEM 
RET 

DISPLAY_RFT  ENDP 

DISPLAY_DEMOD  PROC  NEAR 

MOV  SI, OFFSET  DEMOD_UDF 
MOV  DI, OFFSET  DEMOD_P 
MOV  AL, DEMOD_CON 
CALL  DISPLAY_ITEM 
RET 

DISPLAY_DEMOD  ENDP 

DISPLAY_CHL  PROC  NEAR 

MOV  SI, OFFSET  CHL_UDF 
MOV  DI, OFFSET  CHL_P 
MOV  AL, CHL_CON 
CALL  DISPLAY_ITEM 
RET 

DISPLAY_CHL  ENDP 

DISPLAY_ITEM  PROC  NEAR 
PUSH  DI 
PUSH  AX 

CALL  DOUBLE_DIS_LINE 
POP  AX 


POP  SI 
CMP  AL, 0 
JNZ  CONI 
RET 
CONI: 

DEC  AL 
ADD  AL, AL 
XOR  AH, AH 
ADD  SI, AX 
MOV  SI, [SI] 

CALL  DOUBLE_DIS_LINE 
RET 

DISPLAY_ITEM  ENDP 

RECOVER_CON  PROC  NEAR 

MOV  SI, OFFSET  CON_SCREEN_CLEAR 

CALL  DOUBLE_DIS_LINE 

RET 

RECOVER_CON  ENDP 

SOURCE_POINTER  PROC  NEAR 
MOV  SI, OFFSET  T1 
JMP  D1 

RECOVER_SOURCE : 

MOV  SI, OFFSET  SI 
JMP  D1 

ENCODER_POINTER : 

MOV  SI, OFFSET  T2 
JMP  D1 

RECOVER_ENCODER : 

MOV  SI, OFFSET  S2 
JMP  D1 

MODULATOR_POINTER : 

MOV  SI, OFFSET  T3 
JMP  D1 

RECOVER_MODULATOR : 

MOV  SI, OFFSET  S3 
JMP  D1 

CHANNEL_S_POINTER : 

MOV  SI, OFFSET  T4 
JMP  D1 

RECOVER_CHANNEL_S : 

MOV  SI, OFFSET  S4 
Dl: 

CALL  DOUBLE_DIS_LINE 
RET 

CHANNEL_POINTER : 

MOV  SI, OFFSET  T5 
JMP  Dl 

RECOVER_CHANNE  L : 

MOV  SI, OFFSET  S5 
JMP  Dl 

DECODER_POINTER : 

MOV  SI, OFFSET  T6 
JMP  Dl 
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RECOVER_DECODER : 

MOV  SI, OFFSET  S6 
JMP  D1 

DEMODULATOR_POINTER : 

MOV  SI, OFFSET  T7 
JMP  D1 

RECOVER_DEMODULATOR : 

MOV  SI, OFFSET  S7 
JMP  D1 

RECEIVER_POINTER : 

MOV  SI, OFFSET  T8 
JMP  D1 

RECOVER_RECEIVER : 

MOV  SI, OFFSET  S8 
JMP  D1 

SOURCE_POINTER  ENDP 

NUMERI C_NUM_LOCK  PROC  NEAR 
RET 

NUMERI C_NUM_LOCK  ENDP 

NUMERI C_NUM_NOT_LOCK  PROC  NEAR 
RET 

NUMERI C_NUM_NOT_LOCK  ENDP 

ERROR_HANDLER  PROC  NEAR 
MOV  AX, CONST 
MOV  DS , AX 
MOV  ES ,  AX 

MOV  SP,STACK_POINTERl 
RET 

ERROR_HANDLER  ENDP 

TY_BEEP  PROC  NEAR 
TEST  BL, 3 
JNZ  TY93 
RET 
TY93 : 

PUSH  DX 
PUSH  SI 

CALL  CURRENT_CURSER 
PUSH  DX 

MOV  SI, OFFSET  TY_BEEP1 
CALL  DOUBLE_DIS_LINE 
POP  DX 

CALL  CURSER_POSITION 
POP  SI 
POP  DX 
RET 

TY_BEEP  ENDP 

DUMMY_CALL  PROC  NEAR 
RET 

DUMMY  CALL  ENDP 


FIR_SAVE1  PROC  NEAR 

MOV  STACK_POINTERl , SP 
PUSH  AX 

CALL  F I LE_PRE PARE 
MOV  DX, OFFSET  A10 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
FOP  AX 

MOV  DI, OFFSET  SBU 
MOV  SI, OFFSET  ORDER_BW_CF+20 
TEST  AH, 8 OH 
JZ  CSS1 
ADD  SI, 25 
CSS1: 

MOV  CX, 5 
REP  MOVSB 

MOV  SI, OFFSET  SF_BW_CF+315 
TEST  AH, 8 OH 
JZ  CSS 2 
ADD  SI, 420 
CSS2 : 

MOV  CX, 105 
REP  MOVSB 

MOV  SI, OFFSET  FIR_CF 
TEST  AH, 8 OH 
JZ  CSS 3 
ADD  SI, 1403 
CSS3  : 

MOV  CX, 1403 

REP  MOVSB 

MOV  SI, OFFSET  SBU 

MOV  CX, 1513 

CALL  GENERATE_PARI T Y 

MOV  [SI], AX 

MOV  CX, 1515 
MOV  BX , FILE_HANDLE 
MOV  DX, OFFSET  SBU 
CALL  WRITE_TO_FILE 
MOV  BX , FILE_HANDLE 
CALL  CLOSE_FILE 
RET 

FIR_SAVE1  ENDP 

FIR_RETRIEVE1  PROC  NEAR 
MOV  STACK_P0INTER1 , SP 
PUSH  AX 

CALL  FILE_PREPARE 
MOV  DX, OFFSET  A10 
CALL  OPEN_FILE_READ 
MOV  FILE_HANDLE , AX 
MOV  CX ,1515 
MOV  BX, FILE_HANDLE 
MOV  DX, OFFSET  SBU 


CALL  READ_FROM_FI LE 
MOV  BX, FILE_HANDLE 
CALL  CLOSE_FILE 

MOV  SI, OFFSET  SBU 

MOV  CX, 1513 

CALL  GENERATE_PARITY 

CMP  [SI ] , AX 

POP  AX 

JZ  CSS 8 

MOV  SI, OFFSET  IL_FIR 
CALL  DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
CALL  GET_MOUSE_STATE 
RET 
CSS8 : 

MOV  SI, OFFSET  SBU 
MOV  DI, OFFSET  ORDER_BW_CF+20 
TEST  AH, 8 OH 
JZ  CSS 4 
ADD  DI , 25 
CSS4: 

MOV  CX, 5 
REP  MOVSB 

MOV  DI, OFFSET  SF_BW_CF+315 
TEST  AH, 8 OH 
JZ  CSS 5 
ADD  DI , 420 
CSS  5J 

MOV  CX , 105 
REP  MOVSB 

MOV  DI, OFFSET  FIR_CF 
TEST  AH, 8 OH 
JZ  CSS 6 
ADD  DI , 1403 
CSS6: 

MOV  CX, 1403 
REP  MOVSB 
RET 

FIR_RETRIEVE 1  ENDP 

BW_SET  PROC  NEAR 
TEST  AH, 8 OH 
JNZ  BWS1 
AND  AH, 07H 
MOV  CF_CON , AH 
CALL  DISPLAY_CF 
RET 
BWS1: 

AND  AH, 07H 
MOV  RF_CON , AH 
CALL  DISPLAY_RF 
RET 

BW  SET  ENDP 
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BERH_S 1  PROC  NEAR 

CALL  DISPLAY_CON 
MOV  SI, OFFSET  BER_HIS1 
CALL  DOUBLE_DI S_LINE 
CALL  GET_MOUSE_STATE 
GET_M1 : 

CALL  CLEAR_BUFFER_GET_KEY2 
CMP  AX, 0 
JZ  GET_M522 

MOV  SI, OFFSET  BER  HIS_KM1 
CALL  KEY_FUN_I 
JC  GET_M1 
JMP  GET_M523 
GET_M522: 

CALL  GET_MOUSE_STATE 
TEST  CH, 1 
JZ  GET_M1 
TEST  BL, 3 
JZ  GET_M1 

MOV  SI, OFFSET  BER  HIS_M1 
CALL  MOUSE_FUN_I 
JC  GET_M1 
GET_M523: 

TEST  AL, 10H 
JZ  TY924 
TY922 : 

CALL  CLS 
RET 
TY924: 

MOV  AH, AL 
CALL  POSTRUN_LINK 
JMP  TY922 
BERH_S1  ENDP 

SC_S1  PROC  NEAR 

CALL  DISPLAY  CON 
MOV  SI, OFFSET  SIG_CON3 
CALL  DOUBLE_DIS_LI NE 
CALL  GET_MOUSE_STATE 
GET_M2 : 

CALL  CLEAR_BUFFER_GET_KEY2 
CMP  AX, 0 
JZ  GET_M518 

MOV  SI, OFFSET  SIG_CON_KMl 
CALL  KEY_FUN_I 
JC  GET_M2 
JMP  GET_M519 
GET_M518: 

CALL  GET_MOUSE_STATE 
TEST  CH, 1 
JZ  GET_M2 
TEST  BL, 3 
JZ  GET_M2 

MOV  SI, OFFSET  SIG_CON_Ml 
CALL  MOUSE  FUN  I 


JC  GET_M2 
GET_M519 : 

TEST  AL, 10H 
JZ  TY921 
TY923: 

CALL  CLS 
RET 
TY921 : 

MOV  AH, AL 
CALL  POSTRUN_LINK 
JMP  TY923 
SC_S1  ENDP 

FD_S1  PROC  NEAR 

CALL  DISPLAY_CON 

CMP  CF_CON , 0 
JZ  TY671 
CMP  CF_CON , 1 
JNZ  TY672 
TY671 : 

MOV  SI /OFFSET  SIG_CONl+2 
MOV  BYTE  PTR  [SI] ,OFH 
MOV  SI /OFFSET  SIG_CON2+2 
MOV  BYTE  PTR  [SI],OFH 
MOV  SI, OFFSET  TX1+2 
MOV  BYTE  PTR  [SI], 7 
MOV  SI, OFFSET  TX2+2 
MOV  BYTE  PTR  [SI], 7 
JMP  TY673 
TY672: 

MOV  SI, OFFSET  SIG_CONl+2 
MOV  BYTE  PTR  [SI], 7 OH 
MOV  SI, OFFSET  SIG_CON2+2 
MOV  BYTE  PTR  [SI],70H 
MOV  SI, OFFSET  TX1+2 
MOV  BYTE  PTR  [SI],OFH 
MOV  SI, OFFSET  TX2+2 
MOV  BYTE  PTR  [SI],OFH 
TY673 : 

CMP  RF_CON,0 
JZ  TY674 
CMP  RF_CON , 1 
JNZ  TY675 
TY674 : 

MOV  SI, OFFSET  SIG_CON5+2 
MOV  BYTE  PTR  [SI],OFH 
MOV  SI, OFFSET  SIG_CON4+2 
MOV  BYTE  PTR  [SI],OFH 
MOV  SI, OFFSET  RX1+2 
MOV  BYTE  PTR  [SI], 7 
MOV  SI, OFFSET  RX2+2 
MOV  BYTE  PTR  [SI], 7 
JMP  TY676 


TY 675: 

MOV  SI, OFFSET  SIG_CON5+2 
MOV  BYTE  PTR  [SI],70H 
MOV  SI, OFFSET  SIG_CON4+2 
MOV  BYTE  PTR  [SI],70H 
MOV  SI, OFFSET  RX1+2 
MOV  BYTE  PTR  [SI],OFH 
MOV  SI, OFFSET  RX2+2 
MOV  BYTE  PTR  [SI],OFH 
TY676 : 

MOV  SI, OFFSET  SIG_CONl 
CALL  DOUBLE_DIS_LINE 
CALL  GET_MOUSE_STATE 
GET_M3 : 

CALL  CLEAR_BUFFER_GET_KEY2 
CMP  AX, 0 
JZ  GET_M520 

MOV  SI, OFFSET  SIG_CON_KM2 
CALL  KEY_FUN_I 
JC  GET_M3 
JMP  GET_M521 
GET_M520 : 

CALL  GET_MOUSE_STATE 
TEST  CH, 1 
JZ  GET_M3 
TEST  BL, 3 
JZ  GET_M3 

MOV  SI, OFFSET  SIG_CON_M2 
CALL  MOUSE_FUN_I 
JC  GET_M3 
GET_M521 J 
TEST  AL, 10H 
JZ  TY971 
TY973 : 

CALL  CLS 
RET 
TY971 : 

MOV  AH, AL 

CMP  AH, 2 
JZ  TY677 
CMP  AH, 3 
JNZ  TY678 
TY677 : 

CMP  CF_CON , 0 
JZ  GET_M3 
CMP  CF_CON , 1 
JZ  GET_M3 
JMP  TY679 
TY678 : 

CMP  RF_CON , 0 
JZ  GET_M3 
CMP  RF_CON , 1 
JZ  GET  M3 
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TY679 : 

CALL  POSTRUN_LINK 
JMP  TY973 
FD_S1  ENDP 

DOS_HANDLER  PROC  NEAR 

MOV  STACK  POINTER1, SP 
MOV  AX, CODE 
MOV  DS , AX 

MOV  SI, OFFSET  ERROR_RETURN 
CALL  SET  RE TURN_AD DRESS 
CALL  SET~CRITICAL_ADDRESS 
CALL  GET_PS  P_S  EGMENT 
MOV  ES , AX 
MOV  SI , 2CH 
MOV  AX, ES : [SI] 

MOV  BX, CONST 
MOV  DS , BX 
MOV  ES , BX 
MOV  SI, OFFSET  LSD1 
MOV  DS: [SI+6 ] , AX 
MOV  SI, OFFSET  LSD 
CALL  LOAD_PROGRAM 
Rll: 

RET 

DOS_HANDLER  ENDP 

ERROR_RETURN  PROC  NEAR 
MOV  AX, CONST 
MOV  DS , AX 
MOV  ES, AX 

MOV  SP,STACK_POINTERl 
JMP  Rll 

ERROR_RETURN  ENDP 

UP_SET  PROC  NEAR 

MOV  SI, OFFSET  S_INTEGE 
CALL  DOUBLE_DIS_LINE 
UP1 : 

MOV  SI, OFFSET  ENTER_UP 
CALL  DOUBLE_DIS_LINE 
MOV  DI, OFFSET  MA_UP 
MOV  SI, OFFSET  INTEGERN 
CALL  LFDP_ASC 
CALL  FDP_NUMBER  EDITOR 
MOV  BX, OFFSET  UP_ERROR 
MOV  DX, 21 

CALL  ERROR_DETECT 1 
JC  UP1 

CALL  ULFDP_ASC 
RET 

UP_SET  ENDP 

NOC_SET  PROC  NEAR 

MOV  SI, OFFSET  S_INTEGE 
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CALL  DOU BLE_D I S_LI NE 
NCI : 

MOV  SI, OFFSET  ENTER_NC 
CALL  DOUBLE_DIS_LINE 
MOV  DI, OFFSET  MA_NC 
MOV  SI, OFFSET  INTEGERN 
CALL  LFDP_ASC 
CALL  FDP_NUMBER_EDITOR 
MOV  BX, OFFSET  NC_ERROR 
MOV  DX, 11 
CALL  ERROR_DETECT 1 
JC  NCI 

CALL  ULFDP_ASC 
RET 

NOC_SET  ENDP 

MA_PRO_SET  PROC  NEAR 
AND  AH, OFH 
MOV  MA_CON , AH 
CALL  DI S PLAY_MA_PT 
RET 

MA_PRO_SET  ENDP 

AMBD_S 1  PROC  NEAR 
PUSH  AX 

MOV  SI, OFFSET  S_INTEGE 
CALL  DOUBLE_DIS_LINE 
POP  AX 

MOV  DI, OFFSET  MA_AMBF 

MOV  SI, OFFSET  ENTER_AMBF 

AND  AH, OFH 

CMP  AH, 1 

JZ  ASPN1 

CMP  AH, 3 

JZ  ASPN2 

ADD  DI , 20 

MOV  SI, OFFSET  ENTER_PR 
JMP  ASPN1 
ASPN2 : 

ADD  DI , 10 
ASPN1 : 

CALL  DOUBLE_DIS_LINE 

MOV  SI, OFFSET  INTEGERN 1 

CALL  LFDP_ASC 

CALL  FDP_NUMBER_EDITOR 

CALL  ULFDP_ASC 

RET 

AMBD_S1  ENDP 

LC_SET  PROC  NEAR 
PUSH  AX 

MOV  SI, OFFSET  S_NN 
CALL  COMPUTE_NUMBER 
MOV  BX, AX 


POP  AX 
PUSH  BX 
PUSH  AX 

MOV  SI, OFFSET  SBU 
CALL  SAVE_SCREEN 
CALL  CLS 

MOV  SI, OFFSET  A_P_NUMB 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  LINK_C_UNIT 
CALL  DOUBLE_DIS_LINE 
POP  AX 
AND  AH, OFH 
CMP  AH, 1 
JNZ  LC279 
MOV  AX, OFFSET  LC1 
JMP  AX 
LC279 : 

CMP  AH, 2 
JNZ  LC278 
MOV  AX, OFFSET  LC2 
JMP  AX 
LC278: 

POP  AX 
CMP  AL,  2 
JNZ  LC893 
DEC  AL 
LC893 : 

PUSH  AX 

MOV  SI, OFFSET  A_FLP_BOUND2 

MOV  DI, OFFSET  A_FLP_BOUND3 

MOV  BYTE  PTR  [DI+4],AL 

CALL  F I LL_RETURN 

MOV  WORD  PTR  [ DI+BX+10 ] , 0D3 1H 

POP  AX 

PUSH  AX 

CMP  AL, 1 

JNZ  LC894 

MOV  BYTE  PTR  [SI+BX+10] , 32H 
MOV  BYTE  PTR  [DI+BX+10 ], 32H 
LC894 : 

PUSH  SI 
PUSH  DI 
PUSH  BX 

CALL  DOUBLE_DI S_LINE 

MOV  SI, OFFSET  A_FLP_BOUND3 

CALL  DOUBLE_DIS_LINE 

POP  BX 

POP  DI 

POP  SI 

POP  AX 

PUSH  AX 

MOV  BYTE  PTR  [SI+BX+11 ] , "  " 
MOV  BYTE  PTR  [DI+BX+11],"  " 
ADD  AL, 3 1H 
MOV  [SI+BX+10] ,AL 
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MOV  [DI+BX+10] ,  AL 
POP  AX 
MOV  BX, AX 
ADD  AX, BX 
PUSH  AX 

MOV  DI, OFFSET  LC_BL 
MOV  SI, OFFSET  A_FLP_NUMBER4 
JMP  LC3 
LC2 : 

POP  AX 
PUSH  AX 

MOV  SI, OFFSET  A_FLP_BOUND 
CALL  F I LL_RETURN 
PUSH  SI 
PUSH  BX 

CALL  DOUBLE_DIS_LINE 

POP  BX 

POP  SI 

POP  AX 

PUSH  AX 

MOV  BYTE  PTR  [SI+BX+111  , "  '• 
ADD  AL, 31H 
MOV  [SI+BX+10] ,AL 
MOV  DI, OFFSET  LC_UL 
MOV  SI, OFFSET  A_FLP_NUMBER3 
JMP  LC3 
LC1: 

POP  AX 
DEC  AL 
PUSH  AX 

MOV  SI, OFFSET  A_FLP_BOUND4 

MOV  DI, OFFSET  A_FLP_BOUND5 

MOV  BYTE  PTR  [DI+4],AL 

CALL  FI LL_RETURN 

MOV  BYTE  PTR  [DI+BX+11] , ODH 

PUSH  DI 

PUSH  SI 

PUSH  BX 

CALL  DOUBLE_DIS_LINE 

MOV  SI, OFFSET  A_FLP_BOUND5 

CALL  DOUBLE_DIS_LINE 

POP  BX 

POP  SI 

POP  DI 

MOV  BYTE  PTR  [SI+BX+11],"  " 
MOV  BYTE  PTR  [DI+BX+11],”  ” 
MOV  DI, OFFSET  LC_S 
MOV  SI, OFFSET  A_FLP_NUMBER4 
POP  AX 
SHL  AX, 1 
PUSH  AX 
LC3: 

CALL  LAF_ASC 
POP  AX 
MOV  [SI], AX 
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CALL  A_FLP_EDITOR 
CALL  ULAF_ASC 
MOV  SI, OFFSET  SBU 
CALL  RECOVER_SCREEN 
RET 


FILL_RETURN: 

MOV  BYTE  PTR  [SI+4],AL 

MOV  DL, 7 

MUL  DL 

XOR  BH,BH 

MOV  BL,AL 

MOV  WORD  PTR  [SI+BX+10] , 0D31H 
RET 

LC_SET  ENDP 

ITM_SET  PROC  NEAR 

MOV  SI, OFFSET  S_NN 

CALL  COMPUTE_NUMBER 

MOV  SI, OFFSET  A_FLP_S3 

MOV  DS: [SI+SQ_INDEX_NR] ,AL 

MOV  DS : [ SI+SQ_INDEX_NEPWR ] , AL 

MOV  DS: [SI+SQ_INDEX_NEPR] ,AL 

PUSH  AX 

MOV  DL, 9 

MUL  DL 

ADD  AX, 5 

MOV  DS: [SI+SQ_INDEX_NC] ,AL 

POP  AX 

PUSH  AX 

MOV  DL, AL 

MUL  DL 

MOV  DS: [SI+SQ_INDEX_TNE] ,AL 
MOV  SI, OFFSET  SBU 
CALL  SAVE_SCREEN 
CALL  CLS 

MOV  SI, OFFSET  A_P_NUMB 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  ITM_UNIT 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  A_FLP_S3 
CALL  SQUARE_INDEX 
MOV  SI, OFFSET  LEFT_F 
POP  AX 
PUSH  AX 
MOV  DL,  6 
MUL  DL 
XOR  BH, BH 
MOV  BL, AL 

MOV  BYTE  PTR  [SI+BX+2 ] , ODH 
PUSH  BX 
PUSH  SI 

CALL  DOUBLE_DIS_LINE 
POP  SI 
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POP  BX 

MOV  BYTE  PTR  [SI+BX+2], 

MOV  DI, OFFSET  ITM_S 
MOV  SI, OFFSET  A_FLP_NUMBER2 
POP  AX 

CALL  SET_DI SABLE 
CALL  LAF_ASC 
CALL  A_FLP_EDITOR 
CALL  ULAF_ASC 
MOV  SI, OFFSET  SBU 
CALL  RECOVER_SCREEN 
RET 

ITM_SET  ENDP 

FLP_CONTROL  EQU  15 
AF_BUFFER_BEGIN  EQU  36 

SET_DISABLE  PROC  NEAR 
PUSH  DI 
PUSH  SI 
MOV  CX, 64 
MOV  [SI],CX 
ADD  SI , AF_BUFFER_BEGIN 
XOR  BX, BX 
SD1: 

MOV  DI, [SI] 

AND  BYTE  PTR  [ DI+FLP_CONTROL] , OBFH 
CMP  BH,AL 
JAE  SD7 
CMP  BL, AL 
JC  SD2 
SD7 : 

XOR  BYTE  PTR  [DI+FLP_CONTROL] , 4 OH 
SD2: 

INC  SI 
INC  SI 
CMP  BH,AL 
JAE  SD4 
CMP  BL, 7 
JC  SD3 
INC  BH 
XOR  BL, BL 
JMP  SD4 
SD3: 

INC  BL 
SD4 : 

LOOP  SD1 
POP  SI 
POP  DI 
RET 

SET_DISABLE  ENDP 

ITM_SET1  PROC  NEAR 

MOV  SI, OFFSET  MA_UP 
CALL  COMPUTE  NUMBER 
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MOV  SI /OFFSET  A_FLP_S2 
MOV  DS: [SI+SQ_INDEX_TNE] ,AL 
PUSH  AX 
CMP  AL,9 
JC  IT1 
MOV  AL,8 
IT1: 

MOV  DS: [SI+SQ_INDEX_NEPWR] ,AL 
MOV  DS: [SI+SQ_INDEX_NEPR] ,AL 
MOV  DL,9 
MUL  DL 
ADD  AX, 5 

MOV  DS: [SI+SQ_INDEX_NC] ,AL 
POP  AX 
PUSH  AX 
MOV  DL,8 
DIV  DL 
CMP  AH, 0 
JZ  ITM9 
INC  AL 
ITM9: 

MOV  DS: [SI+SQ_INDEX_NR] ,AL 
MOV  SI /OFFSET  SBU 
CALL  SAVE_SCREEN 
CALL  CLS 

MOV  SI, OFFSET  A_P_NUMB 

CALL  DOUBLE_DIS_LINE 

MOV  SI, OFFSET  ITM_UNIT1 

CALL  DOUBLE_DIS_LINE 

MOV  SI, OFFSET  A_FLP_S2 

CALL  SQUARE_INDEX 

MOV  DI, OFFSET  ITM_MA 

MOV  SI, OFFSET  A_FLP_NUMBER2 

POP  AX 

PUSH  AX 

MOV  DS: [SI] , AX 
CALL  SET_ABLE 
CALL  LAF_ASC 
POP  AX 

MOV  DS: [SI] , AX 
CALL  A_FLP_EDITOR 
CALL  ULAF_ASC 
MOV  SI, OFFSET  SBU 
CALL  RECOVER_SCREEN 
RET 

ITM_SET1  ENDP 

SET_ABLE  PROC  NEAR 
PUSH  SI 
PUSH  DI 

MOV  CX,DS: [SI] 

ADD  SI , AF_BUFFER_BEGIN 
SA1: 

MOV  DI, [SI] 

AND  BYTE  PTR  [DI+FLP_CONTROL] , OBFH 
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INC  SI 
INC  SI 
LOOP  SA1 
POP  DI 
POP  SI 
RET 

SET_ABLE  ENDP 

REAL_TIME_SET  PROC  NEAR 
AND  AH, OFH 
MOV  REAL__TIME ,  AH 
CALL  D I S  P LA Y_RE A L_T I ME 
RET 

REAL_TIME_SET  ENDP 

D I S P LA Y_RE A L_T I ME  PROC  NEAR 
MOV  SI, OFFSET  REAL_TIME_M 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  REAL_TIME_OFF 
CMP  REAL_TIME , 0 
JZ  REL1 

MOV  SI, OFFSET  REAL_TIME_ON 
REL1: 

CALL  DOUBLE_DIS_LINE 
RET 

DISPLAY_REAL_TIME  ENDP 

TOPOLOGY_SET  PROC  NEAR 
AND  AH, OFH 
MOV  SAF_TP , AH 
CALL  DISPLAY_SAF_TP 
MOV  SAF_RTG , 1 
CALL  DISPLAY_SAF_RG 
RET 

TOPOLOGY_SET  ENDP 

NON_SET  PROC  NEAR 

MOV  SI, OFFSET  S_INTEGE 
CALL  DOUBLE_DIS_LINE 
NNE10: 

MOV  SI, OFFSET  ENTER_NN 
CALL  DOUBLE_DIS_LINE 
MOV  DI, OFFSET  S_NN 
MOV  SI, OFFSET  INTEGERN 
CALL  LFDP_ASC 
CALL  FDP_NUMBER_EDirOR 
MOV  BX, OFFSET  NN_ERROR 
MOV  DL, 9 
MOV  DH, 1 

CALL  ERROR_DETECT 1 
JC  NNE10 
CALL  ULFDP_ASC 
RET 


ERROR  DETECT 1 


PUSH  SI 

MOV  CL,DS: [SI+L_COUNT_BYTE] 
CMP  CL, 1 
JNZ  NNE1 
MOV  AX, BX 
CALL  ORDER_ERROR 
JMP  NNE2 
NNE1 : 

PUSH  DX 
DEC  CL 
XOR  CH, CH 
XOR  AX, AX 
MOV  DL, 10 

ADD  SI , L_SECOND_DATA 
NN3: 

MUL  DL 

PUSH  CX 

MOV  CL, DS : [SI] 

SUB  CL, 3 OH 
XOR  CH, CH 
ADD  AX, CX 
INC  SI 
POP  CX 
LOOP  NN3 
POP  DX 
CMP  DH,AL 
JAE  NNE98 
CMP  AL, DL 
JC  NNE4 
NNE98 : 

MOV  AX, BX 
CALL  ORDER_ERROR 
JMP  NNE2 
NNE4 : 

CLC 

NNE5: 

POP  SI 
RET 
NNE2 : 

STC 

JMP  NNE5 
NON_SET  ENDP 

SAF_0D_S1  PROC  NEAR 

MOV  STACK_POINTER3,SP 
CALL  CLEAR_FDP_MARK 
MOV  DI, OFFSET  PB_NM 
MOV  SI, OFFSET  A_FDP_NUMBER 
CALL  LAD_ASC 
SAF9 : 

CALL  DISPLAY_SAF_OU 
TEST  NET_OD_SAF , 3 
JZ  GET_M67 

MOV  SI, OFFSET  A_FDP_NUMBER 
CALL  A  FDP  EDITOR 
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SAF7 : 

CALL  CLEAR_FDP_MARK 

MOV  DI, OFFSET  PB_NM 

MOV  SI, OFFSET  A_FDP_NUMBER 

CALL  ULAD_ASC 

CALL  CLS 

RET 

GET_M67 : 

CALL  GET_MOUSE_STATE 
GET_M65: 

CALL  CLEAR_BUFFER_GET_KEY2 
CMP  AX, 0 
JZ  GET_M7  0 
MOV  BL, 1 

MOV  SI, OFFSET  MA_OD_CTL_K 
CALL  KEY_FUN_I 
JC  GET_M65 
JMP  GET_M69 
GET_M7  0 : 

CALL  GET_MOUSE_STATE 
TEST  CH, 1 
JZ  GET_M65 
TEST  BL, 3 
JZ  GET_M65 

MOV  SI, OFFSET  SAF_OD_CTL 
CALL  MOUSE_FUN_I 
JC  GET_M65 
GET_M69 : 

CMP  AL, 0 
JZ  SAF7 

MOV  NET_OD_SAF , AL 

JMP  SAF9 

RET 

SAF_OD_Sl  ENDP 

MOUSE_HANDLER8  PROC  NEAR 
MOV  BL, 1 

MOV  SI, OFFSET  SAF_OD_CTL 
CALL  MOUSE_FUN_I 
JC  GET_M68 
GET_M9742: 

MOV  SP, STACK_POINTER3 
PUSH  AX 

MOV  DI, OFFSET  A_FDP_NUMBER 
MOV  SI, [DI+2] 

CALL  ERASE_AD_LAST 
POP  AX 
CMP  AL,  0 
JZ  SAF7 

CMP  NET_OD_SAF , AL 
JNZ  GET_M99 
XOR  NET_OD_S \F , AL 
JMP  SAF9 
GET  M99: 


JMP  SAF9 
GET_M68 : 

RET 

M0USE_HANDLER8  ENDP 

FUNCTI0N_KEY_HANDLER8  PROC  NEAR 
MOV  BL, 1 

MOV  SI  ..OFFSET  MA_0 D_CT L_K 
CALL  KEY_FUN_I 
JC  GET_M68 
JMP  GET_M9742 
RET 

FUNCTION_KEY_HANDLER8  ENDP 

CLEAR_FDP_MARK  PROC  NEAR 

MOV  SI, OFFSET  A_FDP_NUMBER 
MOV  CX, [SI] 

ADD  SI, 34 
SAF89 : 

MOV  DI, [SI] 

AND  BYTE  PTR  [DI+1],0FDH 
INC  SI 
INC  SI 
LOOP  SAF89 
RET 

CLEAR_FDP_MARK  ENDP 

DISPLAY_SAF_OU  PROC  NEAR 

MOV  SI, OFFSET  SAF_OD_MESSl 
CALL  DOUBLE_DIS_LINE 
TEST  NET_OD_SAF , 1 
JNZ  SAFI 

MOV  SI, OFFSET  SAF_OD_MESS3 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  SAF_OD_PD_OFF 
CALL  DOUBLE_DIS_LINE 

SAFI : 

TEST  NET_OD_SAF, 2 
JNZ  SAF2 

MOV  SI, OFFSET  SAF_OD_MESS5 
CALL  DOUBLE_DIS_LINE 
MOV  SI, OFFSET  SAF_OD_PB_OFF 
CALL  DOUBLE_DIS_LINE 

SAF2 : 

CALL  CLEAR_FDP_MARK 

MOV  SI, OFFSET  A_FDP_NUMBER 

ADD  SI, 34 

TEST  NET_OD_S AF , 1 

JNZ  SAF96 

MOV  DI, [SI] 

XOR  BYTE  PTR  [DI+1],2 

INC  SI 

INC  SI 

MOV  DI, [SI] 

XOR  BYTE  PTR  [DI+1],2 
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INC  SI 
INC  SI 
JMP  SAF961 
SAF96: 

ADD  SI, 4 
SAF961: 

TEST  NET_OD_SAF , 2 
JNZ  SAF97 

MOV  DI, [SI] 

XOR  BYTE  PTR  [DI+1],2 

INC  SI 

INC  SI 

MOV  DI, [SI] 

XOR  BYTE  PTR  [DI+1],2 
SAF97 : 

RET 

DISPLAY_SAF_OU  ENDP 

MA_OD_S i  PROC  NEAR 

MOV  STACK_POINTER3 , SP 
SAF924 : 

CALL  DI S PLAY_MA_OU 
CALL  MA_MOUSE_A 
JZ  SAF923 
CMP  NET_OD_MA,AL 
JNZ  SAF883 
XOR  NET_OD_MA , AL 
JMP  SAF924 
SAF883: 

MOV  NET_OD_MA , AL 
JMP  SAF924 
SAF923 : 

CALL  CLS 
RET 

MA__OD_S  1  ENDP 

DI S  PLAY_MA_OU  PROC  NEAR 
PUSH  SI 

MOV  SI, OFFSET  MA_OD_MESSl 
CALL  DOUBLE_DIS_LINE 
TEST  NET_OD_MA, 1 
JNZ  SAF3 

MOV  SI, OFFSET  MA_OD_MESS3 
CALL  DOUBLE  DIS_LINE 

SAF3 : 

TEST  NET_OD_MA, 2 
JNZ  SAF91 

MOV  SI, OFFSET  MA_OD_MESS5 
CALL  DOUBLE_DIS_LINE 
SAF91: 

POP  SI 
RET 

DI S  PLA Y_MA_OU  ENDP 
MA  MOUSE  A  PROC  NEAR 
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GET_M66: 

CALL  CLEAR_BUFFER_GET_KE Y 2 
CMP  AX, 0 
JZ  GET_M665 

MOV  SI, OFFSET  MA_0 D_CT L_K 

CALL  KEY_FUN_I 

JC  GET_M66 

CMP  AL, 0 

RET 

GET_M665: 

CALL  GET_MOUSE_STATE 
TEST  CH, 1 
JZ  GET_M66 
TEST  BL, 3 
JZ  GET_M66 

MOV  SI, OFFSET  MA_OD_CTL 

CALL  MOU S  E_FUN_ I 

JC  GET_M66 

CMP  AL, 0 

RET 

MA_MOUSE_A  ENDP 

DISPLAY_NETCON  PROC  NEAR 
CALL  RECOVER_NETCON 
MOV  SI, OFFSET  NETCON_M 
CALL  DOUBLE_DIS_LINE 
CMP  NET_CON , 0 
JZ  DNC4 
CMP  NET_CON , 1 
JZ  DNC2 

MOV  SI, OFFSET  NETCON_MA 
JMP  DNC3 
DNC4: 

MOV  SI, OFFSET  NETCON_UD 
JMP  DNC3 
DNC2 : 

MOV  SI, OFFSET  NETCON_SAF 
DNC3 : 

CALL  DOUBLE_DIS_LINE 

CALL  DISPLAY_MA_PT 
CALL  DISPLAY_SAF_TP 
CALL  DISPLAY_SAF_RG 
CALL  DISPLAY_REAL_TIME 
RET 

DISPLAY_NETCON  ENDP 

RECOVER_NETCON  PROC  NEAR 
MOV  SI, OFFSET  NETCON_C 
CALL  DOUBLE_DIS_LINE 
RET 

RECOVER_NETCON  ENDP 

DISPLAY_MA_PT  PROC  NEAR 
CMP  NET_CON , 2 


JZ  DMP1 
RET 
DMP1: 

MOV  SI, OFFSET  NETCON_MA_M 

CALL  DOUBLE_DIS_LINE 

CMP  MA_CON , 0 

JZ  DMP5 

CMP  MA_CON , 3 

JZ  DMP6 

CMP  MA_CON , 2 

JZ  DMP3 

MOV  SI, OFFSET  NETCON_MA_A 
JMP  DMP4 
DMP5 : 

MOV  SI, OFFSET  NETCON_MA_UD 
JMP  DMP4 
DMP3 : 

MOV  SI, OFFSET  NETCON_MA_TCR 
DMP4 : 

CALL  DOUBLE_DIS_LINE 
RET 
DMP6 : 

MOV  SI, OFFSET  NETCON_MA_CSMA 
JMP  DMP4 

DIS  PLAY_MA_PT  ENDP 

DISPLAY_SAF_TP  PROC  NEAR 
CMP  NET_CON,l 
JZ  DMP11 
RET 
DMPll: 

MOV  SI, OFFSET  NETCON_TP_M 

CALL  DOUBLE_DIS_LINE 

CMP  SAF_TP , 0 

JZ  DMP10 

CMP  SAF_TP , 2 

JZ  DMP7 

CMP  S AF_TP , 3 

JZ  DMP9 

MOV  SI, OFFSET  NETCON_TP_S 
JMP  DMP8 
DMP9 : 

MOV  SI, OFFSET  NETCON_TP_BL 
JMP  DMP8 
DMP10: 

MOV  SI, OFFSET  NETCON_TP_UD 
JMP  DMP8 
DMP7 : 

MOV  SI, OFFSET  NETCON_TP_UL 
DMP8 : 

CALL  DOUBLE_DIS_LINE 
RET 

DISPLAY_SAF_TP  ENDP 
DISPLAY  SAF  RG  PROC  NEAR 
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CMP  NET_C0N,1 
JZ  DMR1 
RET 
DMR1: 

MOV  SI, OFFSET  NETCOM_RG_M 

CALL  DOUBLE_DIS_LINE 

CMP  SAF_RTG , 0 

JZ  DMR5 

CMP  SAF_RTG , 2 

JZ  DMR3 

MOV  SI, OFFSET  NETCON_R G_S 
JMP  DMR4 
DMR5 : 

MOV  SI, OFFSET  NETCON_RG_UD 
JMP  DMR4 
DMR3: 

MOV  SI, OFFSET  NETCON_RG_R 
DMR4 : 

CALL  DOUBLE_DIS_LINE 
RET 

DISPLAY_SAF_RG  ENDP 

SET_NET_CON  PROC  NEAR 

MOV  SI, OFFSET  NET_OD_Sl+LIST_OVERHEAD 
AND  BYTE  PTR  [SI+STATUS] , OEH~ 

XOR  BYTE  PTR  [SI+STATUS] , 1 

ADD  SI , ELEMENT_SIZE 

AND  BYTE  PTR  [SI+STATUS ], OEH 

XOR  BYTE  PTR  [SI+STATUS ], 1 

TEST  AH, 10H 

JZ  DNC45 

MOV  NET_CON , 1 

MOV  SI, OFFSET  NET_OD_Sl+LIST_OVERHEAD+ELEMENT_SIZE 
JMP  DNC5 
DNC45: 

MOV  NET_CON,2 

MOV  SI, OFFSET  NET_OD_Sl+LIST  OVERHEAD 
DNC5 : 

AND  BYTE  PTR  [SI+STATUS ], OEH 

CALL  DISPLAY_NETCON 

RET 

SET_NET_CON  ENDP 

LI ST_OVERHEAD  EQU  5 
E  LEMENT_S I Z E  EQU  12 
STATUS  EQU  0 

DISABLE_ED  PROC  NEAR 

MOV  SI, OFFSET  ENCODER_Sl+LIST_OVERHEAD 
CALL  RESET  ED 

MOV  SI, OFFSET  DECODER_Sl+LIST  OVERHEAD 

CALL  RESET_ED 

CMP  ECD_CON , 0 

JNZ  DED4 

CMP  DCD_CON , 0 
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JNZ  DED5 
RET 
DED4 : 

CMP  ECD_CON , 1 
JZ  DED1 
CMP  ECD_C0N,2 
JZ  DED2 
CMP  ECD_C0N,3 
JZ  DED2 
CMP  ECD_CON , 5 
JZ  DED3 
RET 
DED1: 

MOV  SI /OFFSET  DECODER  Sl+LIST_OVERHEAD 
DED10 : 

AND  BYTE  PTR  [SI+STATUS] , OEH 
ADD  SI , ELEMENT_SIZE 
AND  BYTE  PTR  [SI+STATUS] , OEH 
RET 
DED2 : 

MOV  SI, OFFSET  DECODER_S 1 + LI S T_0 VERHE AD+E LEMENT_S I Z E 
JMP  DED10 
DED3: 

MOV  SI, OFFSET  DECODER_Sl+LIST_OVERHEAD 
DED11: 

AND  BYTE  PTR  [SI+STATUS ], OEH 
ADD  SI , ELEMENT_SIZE 
ADD  SI , ELEMENT_SIZE 
AND  BYTE  PTR  [SI+STATUS ], OEH 
RET 
DED5: 

CMP  DCD_CON , 1 
JZ  DED6 
CMP  DCD__CON ,  2 
JZ  DED7 
CMP  DCD_CON , 3 
JZ  DED7 
CMP  DCD_CON , 4 
JZ  DED8 
RET 
DED6: 

MOV  SI, OFFSET  ENCODER_Sl+LIST  OVERHEAD 
JMP  DED10 
DED7: 

MOV  SI, OFFSET  ENCODER  Sl+LIST  0 VERHE AD+E LEMENT_S I Z E 
JMP  DED10 
DED8 : 

MOV  SI, OFFSET  ENCODER  Sl+LIST  OVERHEAD 
JMP  DED11 
DISABLE_ED  ENDP 

RESET_ED  PROC  NEAR 

AND  BYTE  PTR  [SI+STATUS] , OEH 
XOR  BYTE  PTR  [SI+STATUS] , 1 
ADD  SI , ELEMENT_SIZE 
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AND  BYTE  PTR  [SI+STATUS ] , OEH 
XOR  BYTE  PTR  [SI+STATUS] , 1 
ADD  SI , ELEMENT_SIZE 
AND  BYTE  PTR  [SI+STATUS ], OEH 
XOR  BYTE  PTR  [SI+STATUS] , 1 
RET 

RESET_ED  ENDP 

CODE  ENDS 
END 
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***************************  LN1 . ASM  ******************************* 


ALOHA. TDT: 

TREE . TDT 
CSMA.TDT 

User  population 

Number  of  channels 

Input  traffic  matrix:  User  1 

:  User  2 


:  User  12 

Maximum  simulation  time 
Delay-throughput  switch 
Real  time  on-off  switch 


STARNET . TDT : 

Number  of  nodes 

Traffic  matrix:  64  numbers 

(0,1) 

(0,2) 


(0,7) 

(1,0) 


(1,7) 


(7,7) 

Link  capacities:  7  numbers 

(1,0) 

(2,0) 

(3,0) 


(7,0) 

UNILOOP. TDT: 

Number  of  nodes 

Traffic  matrix:  64  numbers 


(1,7) 


(7/7) 


BIDLOOP.TDT: 

Number  of  nodes 

Traffic  matrix:  64  numbers 

(0,1) 

(0,2) 


(0,7) 

(1,0) 


(1/7) 


(7,7) 

SOURCE. TDT:  One  of  the  following  four  cases: 
Random  bit  case: 

Bit  rate 
Sinusoidal  case: 

Sampling  Frequency 
Sinusoidal  Frequency 
Square  wave  case: 

Amplitude 

Frequency 

White  Gaussian  case: 

NO 

CHLFLTR1 . TDT :  One  of  the  following  four  cases: 
Butterworth  case: 

Filter  type  :  1  :  by  order 

2  :  by  attenuation 

Order 

Sampling  frequency 
Cutoff  frequency 
Chebychev  case: 

Same  as  Butterworth  case 
Elliptic  case: 

Same  as  Butterworth  case 
FIR  case: 

Filter  type  :  l  :  by  coefficients 

2  :  by  attenuation 

Order 
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Sampling  frequency 
Cutoff  frequency 
Coefficient  #0 
Coefficient  #1 


;  Coefficient  #98 

;  CHLFLTR2 . TDT :  One  of  the  following  four  cases: 

;  Butterworth  case : 

;  Attenuation  sampling  frequency 

;  Passband  edge  frequency 

;  Stopband  edge  frequency 

;  Passband  attenuation 

;  Stopband  attenuation 

;  Chebychev  case : 

;  Same  as  Butterworth  case 

;  Elliptic  case: 

;  Same  as  Butterworth  case 

;  FIR  case: 

;  Same  as  Butterworth  case 

;  RCVRFLTR1 . TDT :  Same  as  CHLFLTR1 . TDT 
?  RCVRFLTR2 . TDT :  Same  as  CHLFLTR2 . TDT 

;  CHANNEL. TDT:  One  of  the  following  three  cases: 

;  White  Gaussian  noise: 

;  Signal-to-noise  ratio 

;  BSC  case : 

?  bit  error  rate 

;  Propagation  Model : 

;  Type  :  0  :  Open  Area  +  No  Foliage 

;  1  :  Suburban  Area  +  No  Foliage 

;  2  :  Open  Area  +  Foliaged 

;  3  :  Suburban  Area  +  Foliaged 

;  Transmitter  Antenna  Height 

;  Receiver  Antenna  Height 

;  Transmitter  Average  Power 

;  Transmitter  Antenna  Gain 

;  Receiver  Antenna  Gain 

;  Carrier  Frequency 

;  Distance  between  Transmitter  and  Receiver 

;  Receiver  Noise  Power 

;  Receiver  Bandwidth 

STACK  SEGMENT  ' STACK  *  STACK 
STACK  ENDS 

EXTRN  BIT_RATE : BYTE , AMPLITUDE_SIN : BYTE , AMPLITUDE_SW : BYTE 
EXTRN  SOU_NO : BYTE , SF_BW  CF: BYTE, CHL_N0 : BYTE, CHL_ER: BYTE 
EXTRN  SBU : BYTE , MA_UP : BYTE , NET_C0N : BYTE , SAF _TP : BYTE 
EXTRN  SOU_CON : BYTE , MOD_CON : BYTE , ECD_C0N : BYTE , CF_CON : BYTE 
EXTRN  RF_C0N : BYTE , DCD_C0N : BYTE , DEMOD_CON : BYTE , CHL_CON : BYTE 
EXTRN  ITM_MA : BYTE , ITM_S : BYTE , S_NN : BYTE , LC_BL : BYTE , LC_UL : BYTE 
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EXTRN  LC_S : BYTE , ORDER_BW_CF : BYTE , FIR_CF : BYTE , PM_CON : BYTE , PM_CONST : BYTE 
EXTRN  CF_BW_T : BYTE , NET_OD_S AF : BYTE , PB_SN : BYTE 
EXTRN  NET_OD_MA : BYTE , MA_CON : BYTE , SAF_RTG : BYTE , REALJTIME : BYTE 
EXTRN  NUMBER_ITERATION : BYTE , MA_AMBF : BYTE , MA_CMBF : BYTE 

CONST  SEGMENT  'DATA'  PARA  PUBLIC 
0_LINK_NET  DB  8  DUP  (?) 

LOAD_STATUS  DB  0 

DATA_FILE_NAME1  DB  "PBRESULT. DAT" , 0 
DATA_FILE_NAME2  DB  "TXFILT.DAT" , 0 
DATA_FILE_NAME3  DB  "RCFILT. DAT" , 0 
SOU_CON_TDT  DB  "SOU_CON.TDT" , 0 
STOPJTDT  DB  "STOP. TDT", 0 
STOPJTDTl  DB  1 
DB  0 

DW  OFFSET  NUMBER  ITERATION 
DW  1 
DW  13 

SOU_TDT  DB  " SOURCE. TDT",0 
SOU_TDTl  DB  4 
DB  1 

DW  OFFSET  BIT_RATE 
DW  1 
DW  15 
DB  2 

DW  OFFSET  AMPLITUDE_S IN 
DW  2 
DW  15 
DB  3 

DW  OFFSET  AMPLITUDE_SW 
DW  2 
DW  15 
DB  4 

DW  OFFSET  SOU_NO 
DW  1 
DW  15 

CFJTDTA  DB  "CHLFLTR1 . TDT" , 0 
CF_TDTB  DB  "CHLFLTR2 .TDT" , 0 
CF_TDT1  DB  4 
DB  3 

DW  OFFSET  SF_BW_CF 
DW  2 
DW  15 
DB  4 

DW  OFFSET  SF_BW_CF+105 
DW  2 
DW  15 
DB  5 

DW  OFFSET  SF_BW_CF+2 10 
DW  2 
DW  15 
DB  6 

DW  OFFSET  SF_BW_CF+  315 
DW  2 
DW  15 
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CF_TDT2  DB  4 
DB  3 

DW  OFFSET  ORDER_BW_CF 
DW  1 
DW  5 
DB  4 

DW  OFFSET  ORDER_BW_CF+  5 
DW  1 
DW  5 
DB  5 

DW  OFFSET  ORDER_BW_CF+ 1 0 
DW  1 
DW  5 
DB  6 

DW  OFFSET  ORDER_BW_CF+  2  0 
DW  1 
DW  5 

CF_TDT3  DB  1 
DB  6 

DW  OFFSET  FIR_CF+3 
DW  98 
DW  14 

CF_TDT4  DB  4 
DB  3 

DW  OFFSET  SF_BW_CF+  3  0 
DW  5 
DW  15 
DB  4 

DW  OFFSET  S  F_BW_CF+ 135 
DW  5 
DW  15 
DB  5 

DW  OFFSET  SF_BW_CF+2  4  0 
DW  5 
DW  15 
DB  6 

DW  OFFSET  SF_BW_CF+  345 
DW  5 
DW  15 

RFJTDTA  DB  "RCVFLTR1 . TDT" , 0 
RF_TDTB  DB  "RCVFLTR2 .TDT" , 0 
RFJTDT1  DB  4 
DB  3 

DW  OFFSET  SF_BW_CF+4  2  0 
DW  2 
DW  15 
DB  4 

DW  OFFSET  S F_BW_CF+  525 
DW  2 
DW  15 
DB  5 

DW  OFFSET  SF_BW_CF+630 
DW  2 
DW  15 
DB  6 
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DW  OFFSET  SF_BW_CF+735 
DW  2 
DW  15 

RF_TDT2  DB  4 
DB  3 

DW  OFFSET  ORDER_BW_CF+25 
DW  1 
DW  5 
DB  4 

DW  OFFSET  ORDER_BW_CF+30 
DW  1 
DW  5 
DB  5 

DW  OFFSET  ORDER_BW_CF+35 
DW  1 
DW  5 
DB  6 

DW  OFFSET  ORDER_BW_CF+45 
DW  1 
DW  5 

RF_TDT3  DB  1 
DB  6 

DW  OFFSET  FIR_CF+1406 
DW  98 
DW  14 

RFJTDT4  DB  4 
DB  3 

DW  OFFSET  S F_BW_CF+  450 
DW  5 
DW  15 
DB  4 

DW  OFFSET  SF_BW_CF+555 
DW  5 
DW  15 
DB  5 

DW  OFFSET  S F_BW_CF+  660 
DW  5 
DW  15 
DB  6 

DW  OFFSET  S F_BW_CF+ 7  6  5 
DW  5 
DW  15 

CHLJTDT  DB  "CHANNEL. TDT", 0 
CHL_TDT1  DB  3 
DB  2 

DW  OFFSET  CHL_N0 
DW  1 
DW  15 
DB  3 

DW  OFFSET  CHL_ER 
DW  1 
DW  15 
DB  4 

DW  OFFSET  PM  CONST 


DW  15 

CODJTDT  DB  " CODERATE. TDT" , 0 
MOD_TDT  DB  "MODSIZE.TDT" , 0 
M_ARY  DB  10 
DB  1,1 
DB  2,2 
DB  3,3 
DB  4,4 
DB  5,6 
DB  6,1 
DB  7,2 
DB  8,3 
DB  10,1 
DB  20,1 

ALOHA_TDT  DB  "ALOHA. TDT" , 0 
TREE_TDT  DB  "TREE. TDT" , 0 
CSMA_TDT  DB  "CSMA.TDT",0 
MA_TDT1  DB  1 
DB  0 

DW  OFFSET  MA_UP 
DW  2 
DW  5 

MA_TDT2  DB  1 
DB  0 

DW  OFFSET  ITM_MA+3 
DW  20 
DW  9 

MA_TDT3  DB  1 
DB  0 

DW  OFFSET  NUMBER_ITERATION 
DW  1 
DW  13 

MA_TDT4  DB  1 
DB  0 

DW  OFFSET  MA_AMBF 
DW  1 
DW  10 

MA_TDT5  DB  1 
DB  0 

DW  OFFSET  MA_CMBF 
DW  2 
DW  10 

STAR_TDT  DB  "STARNET . TDT" , 0 
S_TDT1  DB  1 
DB  0 

DW  OFFSET  LC_S+3 
DW  8 
DW  18 

S_TDT3  DB  1 
DB  0 

DW  OFFSET  LC_S+12 
DW  8 
DW  18 

S  TDT2  DB  1 


DB 

0 

DW 

OFFSET 

PB_SN 

DW 

4 

DW 

5 

ULOOP  1 

IDT 

DB  "UNILOOP. TDT", 0 

U_TDT1 

DB 

1 

DB 

0 

DW 

OFFSET 

LC_UL+3 

DW 

8 

DW 

9 

BLOOP 

TDT 

DB  "BIDLOOP.TDT" , 0 

B_TDT1 

DB 

1 

DB 

0 

DW 

OFFSET 

LC_BL+3 

DW 

8 

DW 

18 

B_TDT3 

DB 

1 

DB 

0 

DW 

OFFSET 

LC_BL+12 

DW 

8 

DW 

18 

AFS_TDT1  DB  1 
DB  0 

DW  OFFSET  S_NN 
DW  1 
DW  5 

AFSJTDT2  DB  1 
DB  0 

DW  OFFSET  ITM_S+3 
DW  64 
DW  9 

FILE_HANDLE  DW  ? 

STACK_POXNTERl  DW  ? 

GDF  DB  0FFH,59H,28,l,3,23,"nJ  ■—  I” 

DB  OFFH, 3 0,3, "Generating  Data  Files", 0FFH,79, 25, ODH 
LDB  DB  0FFH,59H,28,l,3,24,"nJ  *— I " 

DB  OFFH, 30, 3, "Loading  Star  Data  Base", OFFH, 79, 25, ODH 
GUS  DB  OFFH, 59H, 25, 1,3, 29," nJ  *—  i " 

DB  OFFH, 2 7, 3, "Generating  Universe  Program" , OFFH, 79 , 25 , ODH 
INCOM_DEF  DB  OFFH, 59H, 24 , 1, 5, 31 , " n J  1 — I” 

DB  OFFH, 26, 3, "Incomplete  Link  Configuration" 

DB  OFFH, 27, 5, "Strike  any  key  to  continue" 

DB  OFFH, 56H, 5 , "K" , OFFH, 56H, 5 , "L" . OFFH, 79,25, ODH 
INVAL_DEF  DB  OFFH, 59H, 24, 1, 5, 30,  "  nJ  — I" 

DB  OFFH, 27, 3 , "Invalid  Link  Configuration" 

DB  OFFH, 27, 5, "Strike  any  key  to  continue" 

DB  OFFH, 56H, 5 , "K" , OFFH, 56H, 5 , "L" , OFFH, 79 , 25 , ODH 
INCOM_N_DEF  DB  OFFH, 59H, 23 , 1, 5, 34 , " n J  *—  I " 

DB  OFFH, 25, 3, "Incomplete  Network  Configuration" 

DB  OFFH, 27, 5, "Strike  any  key  to  continue" 

DB  OFFH , 56H, 5, "K" , OFFH , 56H, 5 , "L" , OFFH ,79,25, ODH 

LSDS  DB  2 

DW  CONST 
DW  OFFSET  DISBU 
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DW  ? 

DW  ? 

DB  1 

DW  OFFSET  LSDS1 
LSDS1  DW  OFFSET  A3 
DW  CONST 
DB  0 
DB  ? 

DW  ? 

DW  OFFSET  AS 4 
DW  CONST 
DW  OFFSET  FCB1 
DW  CONST 
DW  OFFSET  FCB2 
DW  CONST 
DW  OFFSET  DISBU 


DW  CONST 

LSD  DB 

2 

DW 

CONST 

DW 

OFFSET 

DISBU 

DW 

? 

DW 

■9 

• 

DB 

3 

DW 

OFFSET 

LSD1 

DW 

OFFSET 

LSD  3 

DW 

OFFSET 

LSD  4 

LSD1 

DW 

OFFSET 

A3 

DW 

CONST 

DB 

0 

DB 

•9 

• 

DW 

"9 

DW 

OFFSET 

A4 

DW 

CONST 

DW 

OFFSET 

FCB1 

DW 

CONST 

DW 

OFFSET 

FCB2 

DW 

CONST 

DW 

OFFSET 

DISBU 

DW 

CONST 

LSD3 

DW 

OFFSET 

A3 

DW 

CONST 

DB 

0 

DB 

? 

DW 

•9 

• 

DW 

OFFSET 

A6 

DW 

CONST 

DW 

OFFSET 

FCB1 

DW 

CONST 

DW 

OFFSET 

FCB2 

DW 

CONST 

DW 

OFFSET 

DISBU 

DW 

CONST 

LSD4 

DW 

OFFSET 

A3 
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DW 

CONST 

DB 

0 

DB 

-> 

• 

DW 

•? 

« 

DW 

OFFSET 

> 

00 

DW 

CONST 

DW 

OFFSET 

FCB1 

DW 

CONST 

DW 

OFFSET 

FCB2 

DW 

CONST 

DW 

OFFSET 

DISBU 

DW 

CONST 

A3  DB  "LOAD. COM" ,0 
A4  DB  7,"  CC  UNI" , ODH 
A6_LENGTH  EQU  39 

A6  DB  10H,"  LINK20  BS  BB  BF  UNI  " 
LIB_STRING  DB  200  DUP  (?) 

A7_LENGTH  EQU  18 
A7  DB  "CLIB  PASLIB  -oUNI",ODH 
A8  DB  4,"  UNI", ODH 
A9  DB  8,"  UNILOOP", ODH 
AS4  DB  8,"  STARNET" , ODH 
AS5  DB  7,"  PLOTPB" , ODH 
AS6  DB  9,"  PLTTHRPT" , ODH 
AS7  DB  9,"  PLTDELAY" , ODH 
AS9  DB  9,"  PLTQUEUE" , ODH 
AS8  DB  6,"  ALOHA", ODH 
AS10  DB  5,"  TREE", ODH 
ASH  DB  5,"  CSMA" ,  ODH 
AS12  DB  9,"  -Z  UNI. C", ODH 
AS13  DB  9,"  PLOTCONS",ODH 
AS14  DB  9,"  PLTTXINP" , ODH 
AS15  DB  9,"  PLTRCOUT" , ODH 
AS16  DB  "POSTTEXT. DAT", 0 
AS18  DB  8,"  BIDLOOP" , ODH 
AS 19  DB  9,"  PLTTXOUT" , ODH 
AS20  DB  9,"  PLTRCINP" , ODH 
FCB1  DB  3 OH  DUP  (?) 

FCB2  DB  3 OH  DUP  (?) 

DISBU  DB  200  DUP  (?) 

SBU2  DB  4000  DUP  (?) 

D1  DB  2 
DB  7 

DW  OFFSET  B1 
DB  9 

DW  OFFSET  B2 
B1  DB  "negarap" 

B2  DB  "ssuagarap" 

Cl  DB  225 

DB  "# include  <stdio.h>", ODH, OAH 

DB  "# include  " , 22H, "type.h" , 22H, ODH, OAH 

DB  "#def ine  FIFO  100", ODH, OAH 
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DB  "struct{long  int  sample_stp;" , ODH, OAH, "  int  seed" 

DB  " ; } paragen ; " , ODH , OAH , " struct { long  int  samp_stp ; " , ODH , OAH 
DB  "  int  seed; ", ODH, OAH, "  double  stddev; }paragauss" 

DB  " ; " , ODH, OAH 
DB  "float  tmp ; " , ODH , OAH 
DB  "FILE  *fp,  * f open ( ) ; " , ODH , OAH 

C2  DW  188 

DB  "fp=fopen(" , 22H, "stop. tdt" , 22H, " , " , 22H, "r" , 22H, ") ; " , ODH, OAH 

DB  "fscanf (fp, " , 22H, "%f " , 22H, " , &tmp) ; " , ODH, OAH 

DB  " f close ( f p) ;", ODH, OAH 

DB  "paragen. seed=1099 ; " , ODH, OAH 

DB  "paragen .  sample_stp=  ( int)  tmp ; " ,  ODH ,  OAH 

DB  "paragauss. seed»1998 5; " , ODH, OAH 

DB  "paragauss. samp_stp=200000000 ;" , ODH, OAH 

DB  "paragauss . stddev=0 ; " , ODH , OAH 

ERROR_COUNT 1  DW  ? 

ERROR_PROGRAMl  DB  80  DUP  (?) 

ERR0R_PC1  EQU  15 

ERR0R_P1  DB  ",l,",22H,"Display",22H,",l," 

ERR0R_PC2  EQU  9 

ERR0R_P2  DB  " *FIFO) ; " , ODH, OAH 

ERR0R_PC3  EQU  8 

ERR0R_P3  DB  "connect (" 

ADDER_LENGTH  EQU  38 

ADDER_LINE  DB  "connect (", 22H, "Noise  generator" , 22H, ", 0, ", 22H 
DB  "Adder", 22H,",1," 

ADDER_LENGTH 1  EQU  9 
ADDER_LINE1  DB  "*FIFO) ; " , ODH, OAH 
STAR_NO I S E_LENGTH  EQU  61 

STAR_NOISE  DB  "star (", 22H, "Noise  generator", 2 2H,", gauss," 

DB  "&paragauss, sizeof (paragauss) ) ;",ODH,OAH 
NUMBER_OF_BYTE  DW  0 

STAR_COUNT  DW  ? 

CONNECT_COUNT  DW  ? 

INT_COUNT  DW  ? 

INT_C0UNT1  DW  ? 

STAR_BAS E_DAT  DB  "STAR_BAS . DAT" , 0 
UNIVERSE_Q  DB  '*UNI.C",0 
STAR_BASE  DB  4000  DUP  (?) 

STAR_PO INTER  DW  9  DUP  (?) 

DECLARE_INT  DB  1500  DUP  (?) 

C_OVERHEAD  DB  "universe ( ) " , ODH , OAH , " ( " , ODH , OAH 
C_END  DB  "return ( 0 ) ; " , ODH , OAH , " ) " , ODH , OAH 
DECLARE_INT1  DB  1500  DUP  (?) 

STAR_PROGRAM  DB  2500  DUP  (?) 

CONNECT_PROGRAM  DB  2500  DUP  (?) 

SOU_FL  DB  4 
DB  1 

DW  OFFSET  SOURCE 
DB  2 

DW  OFFSET  SOURCE  SIN 
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DB 

3 

DW 

OFFSET 

SOURCE 

DB 

4 

DW 

OFFSET 

SOURCE_WGN 

MOD_ 

FL 

DB 

9 

DB 

1 

DW 

OFFSET 

BPSK 

DB 

2 

DW 

OFFSET 

QPSK 

DB 

3 

DW 

OFFSET 

PSK8 

DB 

4 

DW 

OFFSET 

QAM16 

DB 

5 

DW 

OFFSET 

QAM64 

DB 

6 

DW 

OFFSET 

BFSK 

DB 

7 

DW 

OFFSET 

FSK4 

DB 

8 

DW 

OFFSET 

FSK4 

DB 

10 

DW 

OFFSET 

TBPSKMOD 

ECD_ 

FL 

DB 

6 

DB 

1 

DW 

OFFSET 

NOCOD 

DB 

2 

DW 

OFFSET 

CON  3 

DB 

3 

DW 

OFFSET 

CON7 

DB 

4 

DW 

OFFSET 

CON7 

DB 

5 

DW 

OFFSET 

RS15 

DB 

6 

DW 

OFFSET 

RS15 

DIS_ 

_FL 

DB 

5 

DB 

1 

DW 

OFFSET 

DIS_UNC 

DB 

2 

DW 

OFFSET 

DIS_CO 

DB 

3 

DW 

OFFSET 

DIS_CO 

DB 

5 

DW 

OFFSET 

DIS_UNC 

DB 

9 

DW 

OFFSET 

SINK 

CF_ 

-FL 

DB 

5 

DB 

3 

DW 

OFFSET 

BUTTERWORTH_CF 

DB 

4 

DW 

OFFSET 

CHE  BY  CHEV_C  F 

DB 

5 

DW 

OFFSET 

ELLIPTIC_CF 

DB 

6 

109 


DW  OFFSET  FIR_CF_FILE 
DB  7 

DW  OFFSET  FIR_CF_FILE 
RF_FL  DB  5 
DB  3 

DW  OFFSET  BUTTERWORTH_RF 
DB  4 

DW  OFFSET  CHE  BY  CHEV_RF 
DB  5 

DW  OFFSET  ELLIPTIC_RF 
DB  6 

DW  OFFSET  FIR_RF 
DB  7 

DW  OFFSET  FIR_RF 
DCD_FL  DB  6 
DB  1 

DW  OFFSET  NODEC 
DB  4 

DW  OFFSET  RS_DEC 
DB  2 

DW  OFFSET  VIT3 
DB  3 

DW  OFFSET  VIT7 
DB  5 

DW  OFFSET  VIT3Q 
DB  6 

DW  OFFSET  VIT7Q 
DEMOD_FL  DB  9 
DB  1 

DW  OFFSET  SOFT 
DB  4 

DW  OFFSET  BPSK_DEM 
DB  5 

DW  OFFSET  QPSK_DEM 
DB  6 

DW  OFFSET  PSK8_DEM 
DB  7 

DW  OFFSET  QAM16_DEM 
DB  8 

DW  OFFSET  QAM64_DEM 
DB  9 

DW  OFFSET  BFSK_DEM 
DB  10 

DW  OFFSET  FSK4  DEM 
DB  13 

DW  OFFSET  TBPSKDEM 
CHL_FL  DB  5 
DB  2 

DW  OFFSET  FGAUSS 
DB  4 

DW  OFFSET  PGAUSS 
DB  7 

DW  OFFSET  BSC 
DB  8 

DW  OFFSET  CBSC 


II 


DB  9 

DW  OFFSET  CBSC 
SOURCE  DB  4/Mgen  " 
SOURCE_SIN  DB  4, "sin 
SOURCE_WGN  DB  4 , "wgn  " 

BPSK  DB  6, "bpmod  " 

QPSK  DB  6, "qpmod  » 

PSK8  DB  6, "8pmod  " 

QAM16  DB  7, "16qmod  " 

QAM64  DB  7,"64qmod  " 

BFSK  DB  6 , "bfmod  " 

FSK4  DB  6, "qfmod  " 

NOCOD  DB  6, "nocod  " 

CON 3  DB  6 , "conv3  " 

CON7  DB  6, "conv7  " 

RS15  DB  6, "rscod  " 
BUTTERWORTH_CF  DB  6#"txbut 
CHEBY CHEV_CF  DB  7, "txcheb 
ELLIPTIC_CF  DB  6,"txell  " 
FIR_CF_FILE  DB  6,"txfir  " 
BUTTERWORTH_RF  DB  6, "rebut 
CHEBYCHEV_RF  DB  7, "rccheb 
ELLI PTIC_RF  DB  6,"rcell  " 
FIR_RF  DB  6, "refir  " 

NODEC  DB  6 , "nodec  " 

SOFTV  DB  6,"softv  " 

HARDV  DB  6,"hardv  " 

RS_DEC  DB  6, "rsdec  " 

SOFT  DB  7 , "no_dem  " 

NONE  DB  5, "none  " 

BPSK_DEM  DB  6,"bpdem  " 
QPSK_DEM  DB  6, "qpdem  " 
PSK8_DEM  DB  6, "8pdem  " 
QAM16_DEM  DB  7,"16qdem  " 
QAM64_DEM  DB  7, "64qdem  " 
BFSK_DEM  DB  6,"bfdem  " 
FSK4_DEM  DB  6,"qfdem  " 
FGAUSS  DB  10, "gauss  add  " 
PGAUSS  DB  9, "prop  add  " 

BSC  DB  4 , "bsc  " 

CBSC  DB  5, "cbsc  " 

DIS_UNC  DB  5, "dune  " 

DIS_CO  DB  6, "dconv  " 

SINK  DB  5, "sink  " 

VIT3  DB  5, "vit3  " 

VIT7  DB  5, "vit7  " 

VIT3Q  DB  6, "vit3q  " 

VIT7Q  DB  6, "vit7q  " 
TBPSKMOD  DB  7,"tbpmod  " 
TBPSKDEM  DB  7,"tbpdem  " 

FIFO_POINTER  DW  0 
VALI D_TABLE  DB  27 
DW  OFFSET  AC1 
DW  OFFSET  BC1 


DW 

OFFSET 

AC2 

DW 

OFFSET 

BC2 

DW 

OFFSET 

AC3 

DW 

OFFSET 

BC3 

DW 

OFFSET 

AC4 

DW 

OFFSET 

BC4 

DW 

OFFSET 

AC5 

DW 

OFFSET 

BC5 

DW 

OFFSET 

AC6 

DW 

OFFSET 

BC6 

DW 

OFFSET 

AC7 

DW 

OFFSET 

BC7 

DW 

OFFSET 

AC8 

DW 

OFFSET 

BC8 

DW 

OFFSET 

AC9 

DW 

OFFSET 

BC9 

DW 

OFFSET 

AC10 

DW 

OFFSET 

BC10 

DW 

OFFSET 

AC11 

DW 

OFFSET 

BC11 

DW 

OFFSET 

AC12 

DW 

OFFSET 

BC12 

DW 

OFFSET 

AC13 

DW 

OFFSET 

BC13 

DW 

OFFSET 

AC14 

DW 

OFFSET 

BC14 

DW 

OFFSET 

AC15 

DW 

OFFSET 

BC15 

DW 

OFFSET 

AC16 

DW 

OFFSET 

BC16 

DW 

OFFSET 

AC17 

DW 

OFFSET 

BC17 

DW 

OFFSET 

AC18 

DW 

OFFSET 

BC18 

DW 

OFFSET 

AC19 

DW 

OFFSET 

BC19 

DW 

OFFSET 

AC20 

DW 

OFFSET 

BC20 

DW 

OFFSET 

AC21 

DW 

OFFSET 

BC21 

DW 

OFFSET 

AC22 

DW 

OFFSET 

BC22 

DW 

OFFSET 

AC23 

DW 

OFFSET 

BC23 

DW 

OFFSET 

AC24 

DW 

OFFSET 

BC24 

DW 

OFFSET 

AC25 

DW 

OFFSET 

BC25 

DW 

OFFSET 

AC26 

DW 

OFFSET 

BC26 

DW 

OFFSET 

AC27 

DW 

OFFSET 

BC27 

AC1  DB  2 

DB 

1,1,1,: 

L ,  2 , 1 
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DB  1,1,1, 1,4, 1,2,1 
BC1  DB  1,1, 1,1, 1,1, 1,1 

AC2  DB  2 

DB  1,1, 2, 1,2, 1,2,1 
DB  1,1, 2, 1,4, 1,2,1 
BC2  DB  2, 2, 2, 2, 2, 2, 2, 2 

AC3  DB  2 

DB  1,1, 3, 1,2, 1,2,1 
DB  1,1, 3, 1,4, 1,2,1 
BC3  DB  3, 3, 3, 2, 2, 3, 3, 2 

AC4  DB  2 

DB  1,1, 4, 1,2, 1,2,1 
DB  1,1, 4, 1,4, 1,2,1 
BC4  DB  4, 4, 4, 2, 2, 4, 4, 2 

AC5  DB  2 

DB  1,1, 5, 1,2, 1,2,1 
DB  1,1, 5, 1,4, 1,2,1 
BC5  DB  6, 6, 6, 2, 2, 6, 6, 2 

AC6  DB  2 

DB  1,1, 6, 1,2, 1,2,1 
DB  1,1, 6, 1,4, 1,2,1 
BC6  DB  1,1, 1,4, 4, 1,1, 4 

AC7  DB  2 

DB  1,1,7, 1,2, 1,2,1 
DB  1,1, 7, 1,4, 1,2,1 
BC7  DB  2, 2, 2, 8, 8, 2, 2, 8 


AC8  DB  8 

DB  1,2, 1,1, 2, 1,1, 2 
DB  1,2, 1,1, 4, 1,1, 2 
DB  1,3, 1,1, 2, 1,1, 2 
DB  1,3, 1,1, 4, 1,1, 2 
DB  1,2, 1,1, 2, 1,2, 3 
DB  1,2, 1,1, 4, 1,2, 3 
DB  1,3, 1,1, 2, 1,2, 3 
DB  1,3, 1,1,4, 1,2, 3 
BC8  DB  1,1, 2, 2, 2, 2, 1,2 

AC9  DB  8 

DB  1,2, 2, 1,2, 1,1, 2 
DB  1,2, 2, 1,4, 1,1, 2 
DB  1,3, 2, 1,2, 1,1, 2 
DB  1,3, 2, 1,4, 1,1, 2 
DB  1,2, 2, 1,2, 1,2, 3 
DB  1,2, 2, 1,4, 1,2, 3 
DB  1,3, 2, 1,2, 1,2, 3 
DB  1,3, 2, 1,4, 1,2, 3 
BC9  DB  1,1, 2, 2, 2, 2, 1,2 
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AC10  DB  4 

DB  1,2, 6, 1,2, 1,2, 3 
DB  1,2, 6, 1,4, 1,2, 3 
DB  1,3, 6, 1,2, 1,2, 3 
DB  1,3, 6, 1,4, 1,2, 3 
BCIO  DB  1,1, 2, 8, 8, 2, 1,8 


AC11  DB  2 

DB  1,5, 4, 1,2, 1,2, 4 
DB  1,5, 4, 1,4, 1,2, 4 
BC11  DB  18,18,30,15,15,30,18,15 


AC12  DB  1 

DB  1,1, 9, 1,3, 1,3,1 
BC12  DB  1,1, 1,1,1 


AC13  DB  2 

DB  1,2, 9, 1,3, 1,3, 3 
DB  1,3, 9, 1,3, 1,3, 3 
BC13  DB  1, 1,2,2, 1 


AC14  DB  32 

DB  1,1, 1,3, 2, 3, 2,1 
DB  1,1, 1,3, 4, 3, 2,1 
DB  1,1, 1,4, 2, 3, 2,1 
DB  1,1, 1,4, 4, 3, 2,1 
DB  1,1, 1,5, 2, 3, 2,1 
DB  1,1, 1,5, 4, 3, 2,1 
DB  1,1, 1,6, 2, 3, 2,1 
DB  1,1, 1,6, 4, 3, 2,1 
DB  1,1, 1,3, 2, 4, 2,1 
DB  1,1, 1,3, 4, 4, 2,1 
DB  1,1, 1,4, 2, 4, 2,1 
DB  1,1, 1,4, 4, 4, 2,1 
DB  1,1, 1,5, 2, 4, 2,1 
DB  1,1, 1,5, 4, 4, 2,1 
DB  1,1, 1,6, 2, 4, 2,1 
DB  1,1, 1,6, 4, 4, 2,1 
DB  1,1, 1,3, 2, 5, 2,1 
DB  1,1, 1,3, 4, 5, 2,1 
DB  1,1, 1,4, 2, 5, 2,1 
DB  1,1, 1,4, 4, 5, 2,1 
DB  1,1, 1,5, 2, 5, 2,1 
DB  1,1, 1,5, 4, 5, 2,1 
DB  1,1, 1,6, 2, 5, 2,1 
DB  1,1, 1,6, 4, 5, 2,1 
DB  1,1, 1,3, 2, 6, 2,1 
DB  1,1, 1,3, 4, 6, 2,1 
DB  1,1, 1,4, 2, 6, 2,1 
DB  1,1, 1,4, 4, 6, 2,1 
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DB  1,1, 1,5,2, 6,2,1 
DB  1,1, 1,5, 4, 6, 2,1 
DB  1,1, 1,6, 2, 6, 2,1 
DB  1,1, 1,6, 4, 6, 2,1 

BC14  DB  1,1, 1,1, 1,1, 1,1, 1,1 

AC15  DB  32 

DB  1,1,10,3,2,3,2,1 
DB  1,1,10,3,4,3,2,1 
DB  1,1,10,4,2,3,2,1 
DB  1,1,10,4,4,3,2,1 
DB  1,1,10,5,2,3,2,1 
DB  1,1,10,5,4,3,2,1 
DB  1,1,10,6,2,3,2,1 
DB  1,1,10,6,4,3,2,1 
DB  1,1,10,3,2,4,2,1 
DB  1,1,10,3,4,4,2,1 
DB  1,1,10,4,2,4,2,1 
DB  1,1,10,4,4,4,2,1 
DB  1,1,10,5,2,4,2,1 
DB  1,1,10,5,4,4,2,1 
DB  1,1,10,6,2,4,2,1 
DB  1,1,10,6,4,4,2,1 
DB  1,1,10,3,2,5,2,1 
DB  1,1,10,3,4,5,2,1 
DB  1,1,10,4,2,5,2,1 
DB  1,1,10,4,4,5,2,1 
DB  1,1,10,5,2,5,2,1 
DB  1,1,10,5,4,5,2,1 
DB  1,1,10,6,2,5,2,1 
DB  1,1,10,6,4,5,2,1 
DB  1,1,10,3,2,6,2,1 
DB  1,1,10,3,4,6,2,1 
DB  1,1,10,4,2,6,2,1 
DB  1,1,10,4,4,6,2,1 
DB  1,1,10,5,2,6,2,1 
DB  1,1,10,5,4,6,2,1 
DB  1,1,10,6,2,6,2,1 
DB  1,1,10,6,4,6,2,1 

BC15  DB  1,1,1,40,40,40,40,1,1,40 

AC16  DB  32 

DB  2, 1,9, 3, 2, 3, 3,1 
DB  2, 1,9, 3, 4, 3, 3,1 
DB  2, 1,9, 4, 2, 3, 3,1 
DB  2, 1,9, 4, 4, 3, 3,1 
DB  2, 1,9, 5, 2, 3, 3,1 
DB  2, 1,9, 5, 4, 3, 3,1 
DB  2, 1,9, 6, 2, 3, 3,1 
DB  2, 1,9, 6, 4, 3, 3,1 
DB  2, 1,9, 3, 2, 4, 3,1 
DB  2, 1,9, 3, 4, 4, 3,1 
DB  2, 1,9,4, 2, 4, 3,1 
DB  2, 1,9, 4, 4, 4, 3,1 
DB  2, 1,9, 5, 2, 4, 3,1 
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DB  2, 1,9, 5,4, 4, 3,1 
DB  2, 1,9, 6, 2, 4, 3,1 
DB  2, 1,9, 6, 4, 4, 3,1 
DB  2, 1,9, 3,2, 5, 3,1 
DB  2, 1,9, 3, 4, 5, 3,1 
DB  2, 1,9, 4, 2, 5, 3,1 
DB  2, 1,9, 4, 4, 5, 3,1 
DB  2, 1,9, 5, 2, 5, 3,1 
DB  2, 1,9, 5, 4, 5, 3,1 
DB  2, 1,9, 6, 2, 5, 3,1 
DB  2, 1,9, 6, 4, 5, 3,1 
DB  2, 1,9, 3, 2, 6, 3,1 
DB  2, 1,9, 3, 4, 6, 3,1 
DB  2, 1,9, 4, 2, 6, 3,1 
DB  2, 1,9, 4, 4, 6, 3,1 
DB  2, 1,9, 5, 2, 6, 3,1 
DB  2, 1,9, 5, 4, 6, 3,1 
DB  2, 1,9, 6, 2, 6, 3,1 
DB  2, 1,9, 6, 4, 6, 3,1 

BC16  DB  1,1, 1,1,1 

AC17  DB  32 

DB  4, 1,9, 3, 2, 3, 3,1 
DB  4, 1,9, 3, 4, 3, 3,1 
DB  4, 1,9, 4, 2, 3, 3,1 
DB  4, 1,9, 4, 4, 3, 3,1 
DB  4, 1,9, 5, 2, 3, 3,1 
DB  4, 1,9, 5, 4, 3, 3,1 
DB  4, 1,9, 6, 2, 3, 3,1 
DB  4, 1,9, 6, 4, 3, 3,1 
DB  4, 1,9, 3, 2, 4, 3,1 
DB  4, 1,9, 3, 4, 4, 3,1 
DB  4, 1,9, 4, 2, 4, 3,1 
DB  4, 1,9, 4, 4, 4, 3,1 
DB  4, 1,9, 5, 2, 4, 3,1 
DB  4, 1,9, 5, 4, 4, 3,1 
DB  4, 1,9, 6, 2, 4, 3,1 
DB  4, 1,9, 6, 4, 4, 3,1 
DB  4, 1,9, 3, 2, 5, 3,1 
DB  4, 1,9, 3, 4, 5, 3,1 
DB  4, 1,9, 4, 2, 5, 3,1 
DB  4, 1,9, 4, 4, 5, 3,1 
DB  4, 1,9, 5, 2, 5, 3,1 
DB  4, 1,9, 5, 4, 5, 3,1 
DB  4, 1,9, 6, 2, 5, 3,1 
DB  4, 1,9, 6,4, 5, 3,1 
DB  4, 1,9, 3, 2, 6, 3,1 
DB  4, 1,9, 3, 4, 6, 3,1 
DB  4, 1,9, 4, 2, 6, 3,1 
DB  4, 1,9, 4, 4, 6, 3,1 
DB  4, 1,9, 5, 2, 6, 3,1 
DB  4, 1,9, 5, 4, 6, 3,1 
DB  4, 1,9, 6, 2, 6, 3,1 
DB  4, 1,9, 6, 4, 6, 3,1 

BC17  DB  1,1, 1,1,1 
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AC18  DB  8 

DB  2,1,9, 3, 2, 1,3,1 
DB  2, 1,9, 3, 4, 1,3,1 
DB  2, 1,9, 4, 2, 1,3,1 
DB  2, 1,9, 4, 4, 1,3,1 
DB  2, 1,9, 5, 2, 1,3,1 
DB  2, 1,9, 5, 4, 1^3,1 
DB  2, 1,9, 6, 2, 1,3,1 
DB  2, 1,9, 6, 4, 1,3,1 
BC18  DB  1,1, 1,1 

AC19  DB  8 

DB  4, 1,9, 3, 2, 1,3,1 
DB  4, 1,9, 3, 4, 1,3,1 
DB  4, 1,9, 4, 2, 1,3,1 
DB  4, 1,9, 4, 4, 1,3,1 
DB  4, 1,9, 5, 2, 1,3,1 
DB  4, 1,9, 5, 4, 1,3,1 
DB  4, 1,9, 6, 2, 1,3,1 
DB  4, 1,9, 6, 4, 1,3,1 
BC19  DB  1,1, 1,1 


AC20  DB  8 

DB  2, 1,9, 1,2, 3, 3,1 
DB  2, 1,9, 1,4, 3, 3,1 
DB  2, 1,9, 1,2, 4, 3,1 
DB  2, 1,9, 1,4, 4, 3,1 
DB  2, 1,9, 1,2, 5, 3,1 
DB  2, 1,9, 1,4, 5, 3,1 
DB  2, 1,9, 1,2, 6, 3,1 
DB  2, 1,9, 1,4, 6, 3,1 
BC20  DB  1,1, 1,1 

AC21  DB  8 

DB  4, 1,9, 1,2, 3, 3,1 
DB  4, 1,9, 1,4, 3, 3,1 
DB  4, 1,9, 1,2, 4, 3,1 
DB  4, 1,9, 1,4, 4, 3,1 
DB  4, 1,9, 1,2, 5, 3,1 
DB  4, 1,9, 1,4, 5, 3,1 
DB  4, 1,9, 1,2, 6, 3,1 
DB  4, 1,9, 1,4, 6, 3,1 
BC21  DB  1,1, 1,1 


AC22  DB  4 

DB  2, 1,9, 3, 1,1, 3,1 
DB  2, 1,9,4, 1,1, 3,1 
DB  2, 1,9, 5, 1,1, 3,1 
DB  2, 1,9, 6, 1,1, 3,1 
BC22  DB  1,1 


AC23  OB  4 

DB  4, 1,9,3, 1,1, 3,1 
DB  4,1, 9, 4,1, 1,3,1 
DB  4, 1,9, 5, 1,1, 3,1 
DB  4, 1,9, 6, 1,1, 3,1 
BC23  DB  1,1 


AC24  DB  4 

DB  2, 1,9, 1,1, 3, 3,1 
DB  2, 1,9, 1,1, 4, 3,1 
DB  2, 1,9, 1,1, 5, 3,1 
DB  2, 1,9, 1,1, 6, 3,1 
BC24  DB  1,1 

AC25  DB  4 

DB  4, 1,9, 1,1, 3, 3,1 
DB  4, 1,9, 1,1, 4, 3,1 
DB  4, 1,9, 1,1, 5, 3,1 
DB  4, 1,9, 1,1, 6, 3,1 
BC25  DB  1,1 


AC26  DB  16 

DB  2, 1,9, 3, 1,3, 3,1 
DB  2, 1,9, 4, 1,3, 3,1 
DB  2, 1,9, 5, 1,3, 3,1 
DB  2, 1,9, 6, 1,3, 3,1 
DB  2, 1,9, 3, 1,4, 3,1 
DB  2, 1,9,4, 1,4, 3,1 
DB  2, 1,9, 5, 1,4, 3,1 
DB  2, 1,9, 6, 1,4, 3,1 
DB  2, 1,9, 3, 1,5, 3,1 
DB  2, 1,9, 4, 1,5, 3,1 
DB  2, 1,9, 5, 1,5, 3,1 
DB  2, 1,9, 6, 1,5, 3,1 
DB  2, 1,9, 3, 1,6, 3,1 
DB  2, 1,9, 4, 1,6, 3,1 
DB  2, 1,9, 5, 1,6, 3,1 
DB  2, 1,9, 6, 1,6, 3,1 

BC26  DB  1,1,1 

AC27  DB  16 

DB  4, 1,9, 3, 1,3, 3,1 
DB  4, 1,9, 4, 1,3, 3,1 
DB  4, 1,9, 5, 1,3, 3,1 
DB  4, 1,9, 6, 1,3, 3,1 
DB  4, .1,9, 3, 1,4, 3,1 
DB  4, 1,9, 4, 1,4, 3,1 
DB  4, 1,9, 5, 1,4, 3,1 
DB  4, 1,9, 6, 1,4, 3,1 
DB  4, 1,9, 3, 1,5, 3,1 
DB  4, 1,9, 4, 1,5, 3,1 
DB  4, 1,9, 5, 1,5, 3,1 
DB  4, 1,9, 6, 1,5, 3,1 
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DB  4,1, 9,3,1, 6,3,1 
DB  4, 1,9, 4, 1,6, 3,1 
DB  4, 1,9, 5, 1,6, 3,1 
DB  4, 1,9, 6, 1,6, 3,1 
BC27  DB  1,1,1 
CONST  ENDS 

EXTRN  CREATE_FI LE : NEAR, WRITE_TO_FILE : NEAR, CLOSE_FILE : NEAR 
EXTRN  READ_FROM_FILE : NEAR, OPEN_FILE_READ : NEAR 
EXTRN  SET_RETURN_ADDRESS : NEAR , SET_CRITICAL_ADDRESS : NEAR 
EXTRN  LOAD_PROGRAM : NEAR 

EXTRN  SAVE_SCREEN : NEAR , RECOVER_SCREEN : NEAR , DOUBLE_DIS_LINE : NEAR 
EXTRN  CLS: NEAR, CURSER_POSITION: NEAR 

EXTRN  CLEAR_BUFFER_GET_KEY : NEAR , CLEAR_BUFFER : NEAR 


CODE  SEGMENT  'CODE'  PUBLIC 

ASSUME  CS : CODE , DS : CONST , ES : NOTHING , SS : STACK 

PUBLIC  RUN_S I MU LATE , CI_S 1 , RE_S 1 , POSTRUN_LINK 

RUN_S I MU LATE  PROC  NEAR 

MOV  STACK_POINTERl , SP 
PUSH  AX 

CALL  F I LE_PRE PARE 2 
MOV  SI, OFFSET  SBU2 
CALL  S AVE_S  CREEN 
CALL  CLS 

MOV  SI, OFFSET  GDF 
CALL  DOUBLE_DIS_LINE 
POP  AX 
TEST  AH, 1 
JNZ  RSI 

CALL  CHECK_DEFINITION 
JC  RS7 

CALL  VALID_CONFIGURATION 
CALL  LINK_PARA_FI LE 
CALL  CHECK_CONFIGURATION 
JC  RS39 

MOV  AX, OFFSET  RS5 
JMP  AX 
RS39 : 

XOR  AL,AL 

MOV  LOAD_STATUS,AL 

CALL  CLS 

MOV  SI, OFFSET  LDB 
CALL  DOUBLE_DIS_LINE 
CALL  READ_STAR_BAS E 
CALL  CLS 

MOV  SI, OFFSET  GUS 
CALL  DOUBLE_DIS_LINE 
CALL  CODE_CONVERS I ON_ALL 
CALL  STAR  GENERATOR 
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CALL  INTEGER_DECLARE 
CALL  INTEGER_DECLARE1 
CALL  CONNECT_GENERATOR 
CALL  GENERATE_UNI VERSE 
CALL  CREATE_LIB 
MOV  LOAD_£TATUS , 1 
MOV  SI, OFFSET  LSD 
RS3: 

PUSH  SI 
CALL  CLS 
POP  SI 

CALL  LOAD_PROGRAM 
RS7 : 

MOV  SI, OFFSET  SBU2 
CALL  RECOVER_SCREEN 
CALL  CLEAR_BUFFER 
RET 
RSI: 

CALL  CHECK_N_DEFINITION 
JC  RS7 

CALL  NET_PARA_FILE 
MOV  SI, OFFSET  LSDS1 
CMP  NET_CON,2 
JNZ  RS24 
CMP  MA_CON , 1 
JNZ  RS21 

MOV  WORD  PTR  [SI+8 ], OFFSET  AS 8 
JMP  RS22 
RS21: 

CMP  MA_CON,2 
JNZ  RS23 

MOV  WORD  PTR  [SI+8 ], OFFSET  AS10 
JMP  RS22 
RS23: 

MOV  WORD  PTR  [SI+8 ], OFFSET  ASH 
RS22 : 

MOV  SI, OFFSET  LSDS 
JMP  RS3 
RET 
RS5: 

MOV  SI, OFFSET  LSDS1 
MOV  WORD  PTR  [SI+8 ], OFFSET  A8 
MOV  SI, OFFSET  LSDS 
JMP  RS3 
RS24 : 

CMP  SAF__TP ,  1 
JZ  RS96 
CMP  SAF  TP,  2 
JZ  RS97 

MOV  WORD  PTR  [SI+8] , OFFSET  AS18 
JMP  RS22 
RS96 : 

MOV  WORD  PTR  [SI+8] , OFFSET  AS 4 
JMP  RS22 
RS97 : 
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MOV  WORD  PTR  [SI+8 ], OFFSET  A9 
JMP  RS22 

RUN_S IMULATE  ENDP 

CI_S1  PROC  NEAR 

MOV  STACK_POINTERl , SP 
PUSH  AX 

CALL  FILE_PREPARE2 
MOV  SI, OFFSET  SBU2 
CALL  SAVE_SCREEN 
MOV  SI, OFFSET  LSDS1 
POP  AX 
CMP  AH, 2 
JZ  CIS5 
CMP  AH, 3 
JZ  CIS3 

MOV  DX, OFFSET  AS 16 
MOV  AX, OFFSET  A99 
JMP  AX 
CIS5: 

MOV  WORD  PTR  [ SI+8 ], OFFSET  AS 7 
JMP  CIS2 
CIS3 : 

MOV  WORD  PTR  [SI+8 ], OFFSET  AS6 
CIS2  : 

MOV  SI, OFFSET  LSDS 

JMP  RS3 

RET 

CI_S1  ENDP 

POSTRUN_LINK  PROC  NEAR 

MOV  STACK_POINTERl , SP 
PUSH  AX 

CALL  FILE_PREPARE2 

MOV  SI, OFFSET  SBU2 

CALL  SAVE_SCREEN 

MOV  SI, OFFSET  LSDS1 

POP  AX 

CMP  AH, 8 

JZ  PL1 

CMP  AH, 2 

JZ  PL2 

CMP  AH, 4 

JZ  PL3 

CMP  AH, 3 

JZ  PL7 

CMP  AH, 5 

JZ  PL8 

MOV  WORD  PTR  [SI+8 ], OFFSET  AS 5 
JMP  PL4 
PL3 : 

MOV  WORD  PTR  [SI+8 ], OFFSET  AS15 
JMP  PL4 
PL2: 

MOV  WORD  PTR  [SI+8] , OFFSET  AS14 
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JMP  PL4 
PL1: 

MOV  WORD  PTR  [SI+8 ], OFFSET  AS13 
PL4 : 

MOV  AX, OFFSET  CIS2 
JMP  AX 
PL7 : 

MOV  WORD  PTR  [SI+8] , OFFSET  AS19 
JMP  PL4 
PL8 : 

MOV  WORD  PTR  [SI+8] , OFFSET  AS20 
JMP  PL4 

POSTRUN_LINK  ENDP 

RE_S1  PROC  NEAR 

MOV  STACK_POINTERl , SP 
AND  AH, OFH 
PUSH  AX 

CALL  F I LE_PRE PARE 2 
MOV  SI, OFFSET  SBU2 
CALL  S AVE_S  CREEN 
POP  AX 
CMP  AH, 1 
JZ  A98 
CMP  AH, 2 
JZ  A59 

MOV  DX, OFFSET  DATA_FILE_NAME1 
JMP  A99 
A98: 

MOV  DX, OFFSET  DATA_F I LE_NAME 2 
JMP  A99 
A59 : 

MOV  DX, OFFSET  DATA_FI LE_NAME 3 
A99 : 

CALL  OPEN_FILE_READ 

MOV  FILE_HANDLE , AX 

MOV  DI, OFFSET  CONNECT_PROGRAM 

XOR  CX,CX 

MOV  NUMBER_OF_BYTE , CX 
A12: 

CMP  NUMBER_OF_BYTE , 0 
JZ  All 

DEC  NUMBER_OF_BYTE 
MOVSB 

CMP  WORD  PTR  [SI-1 ] , OAODH 
JZ  A122 

CMP  WORD  PTR  [SI-1 ] , ODOAH 
JZ  A121 

CMP  BYTE  PTR  [SI-1],0DH 
JZ  A56 

CMP  BYTE  PTR  [SI-1],0AH 
JNZ  A12 

MOV  BYTE  PTR  ES : [DI-1] , ODH 
JMP  A56 
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A122 : 

MOV  BYTE  PTR  ES : [DI-1] , ODH 
JMP  A561 
A121: 

MOV  BYTE  PTR  ES:[DI],ODH 
A561: 

CMP  NUMBER_OF_BYTE , 0 
JZ  A56 
INC  SI 

DEC  NUMBER_OF_BYTE 
A56: 

INC  CX 
CMP  CX, 24 
JNZ  A12 

CALL  DISPLAY_A_PAGE 
MOV  DI, OFFSET  CONNECT_PROGRAM 
XOR  CX,CX 
JMP  A12 
All: 

PUSH  CX 

MOV  CX, 4000 

MOV  BX,FILE_HANDLE 

MOV  DX, OFFSET  SBU 

CALL  READ_FROM_FILE 

MOV  NUMBER_OF_BYTE , AX 

CMP  AX, 0 

POP  CX 

JZ  A14 

MOV  SI, OFFSET  SBU 
JMP  A12 
A14 : 

CMP  CX,0 
JZ  A15 

CALL  DISPLAY_A_PAGE 
A15: 

MOV  BX,FILE_HANDLE 
CALL  CLOSE_FILE 
MOV  AX, OFFSET  RS7 
JMP  AX 


DISPLAY_A_PAGE: 

PUSH  SI 
PUSH  CX 
CALL  CLS 
POP  CX 
XOR  DX, DX 

MOV  SI, OFFSET  CONNECT_PROGRAM 
A13: 

PUSH  CX 
PUSH  DX 

CALL  CURSER_POS ITION 
CALL  DOUBLE_DIS_LINE 
CMP  BYTE  PTR  DS:[SI],0DH 
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JNZ  A57 
INC  SI 
A57: 

CMP  BYTE  PTR  DS:[SI],OAH 
JNZ  A58 
INC  SI 
A58 : 

POP  DX 
INC  DH 
POP  CX 
LOOP  A13 
PUSH  CX 

CALL  CLEAR_BUFFER_GET_KEY 
POP  CX 
POP  SI 
RET 

RE_S1  ENDP 

CHECK_DEFINITION  PROC  NEAR 
MOV  SI, OFFSET  SOU_CON 
MOV  CX, 8 
CDP1: 

CMP  BYTE  PTR  [SI],0 
JZ  CDP2 
INC  SI 
LOOP  CDP1 
CLC 
RET 
CDP2 : 

CALL  CLS 

MOV  SI, OFFSET  INCOM_DEF 
CALL  DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
STC 
RET 

CHECK_DEFINITION  ENDP 

CHECK_N_DEFINITION  PROC  NEAR 
CMP  NET_CON , 0 
JZ  CCFN1 
CMP  NET_CON , 1 
JZ  CCFN2 
CMP  MA_CON , 0 
JZ  CCFN1 
CLC 
RET 
CCFN2 : 

CMP  SAF_TP , 0 
JZ  CCFN1 
CMP  SAF_RTG,0 
JZ  CCFN1 
CLC 
RET 
CCFN1: 

CALL  CLS 
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MOV  SI, OFFSET  INCOM_N_DEF 
CALL  * DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
STC 
RET 

CHECK_N_DEFINITION  ENDP 

CHECK_CONFIGURATION  PROC  NEAR 
MOV  SI, OFFSET  SOU_CON 
MOV  DI, OFFSET  0_LINK_NET 
MOV  CX, 4 
CC2: 

MOV  AX, [SI] 

CMP  AX, [DI] 

JNZ  CC1 
INC  SI 
INC  SI 
INC  DI 
INC  DI 
LOOP  CC2 

TEST  LOAD_STATUS , 1 
JZ  CC3 
CLC 
RET 
CC1: 

MOV  SI, OFFSET  SOU_CON 
MOV  DI, OFFSET  0_LINK_NET 
MOV  CX, 4 
REP  MOVSW 
CC3: 

STC 

RET 

CHECK_CONFIGURATION  ENDP 

VALID_CONFIGURATION  PROC  NEAR 
MOV  SI, OFFSET  VALID_TABLE 
MOV  CL, [SI] 

XOR  CH, CH 
INC  SI 

VCP1: 

PUSH  CX 
MOV  DI, [SI] 

MOV  CL, [DI] 

XOR  CH, CH 
INC  DI 

VCP2 : 

CALL  CHECK_AN_ITEM 
JAE  VCP3 
ADD  DI , 8 
LOOP  VCP2 


ADD  SI, 4 
POP  CX 


LOOP  VCP1 


CALL  CLS 

MOV  SI, OFFSET  INVAL_DEF 
CALL  DOUBLE_DIS_LINE 
CALL  CLEAR_BUFFER_GET_KEY 
MOV  SP , STACK_POINTERl 
MOV  AX, OFFSET  RS7 
JMP  AX 

VCP3 : 

POP  CX 

MOV  SI , [SI+2 ] 

MOV  FIFO_POINTER, SI 
RET 


CHECK_AN_ITEM: 

MOV  AL, SOU_CON 
CMP  AL, [DI] 

JN2  VCP4 
MOV  AL , ECD_CON 
CMP  AL, [DI+1] 

JNZ  VCP4 
MOV  AL,MOD_CON 
CMP  AL, [DI+2 ] 

JNZ  VCP4 
MOV  AL,CF_CON 
CMP  AL, [DI+3 ] 

JNZ  VCP4 
MOV  AL, CHL_CON 
CMP  AL, [DI+4] 

JNZ  VCP4 
MOV  AL,RF_CON 
CMP  AL, [DI+5] 

JNZ  VCP4 

MOV  AL, DEMOD_CON 
CMP  AL, [DI+6] 

JNZ  VCP4 
MOV  AL, DCD_CON 
CMP  AL, [DI+7 ] 

JNZ  VCP4 
CLC 
RET 
VCP4 : 

STC 

RET 

VALID_CONFIGURATION  ENDP 

CREATE_LIB  PROC  NEAR 

MOV  DI, OFFSET  LIB_STRING 
MOV  SI, OFFSET  SOU_FL 
MOV  AL, SOU_CON 
CALL  ADD_LIB 
MOV  SI, OFFSET  MOD_FL 
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MOV  AL,MOD_CON 
CALL  ADD_LIB 

CMP  SOU_CON , 1 
JNZ  CLP102 

MOV  SI /OFFSET  ECD_FL 
MOV  AL,ECD  CON 
CALL  ADD_LIB 
CLP102: 

CMP  MOD_CON , 9 
JNZ  CLP91 
CMP  SOU_CON , 1 
JZ  CLP91 
MOV  AL,MOD_CON 
CLP91: 

MOV  SI, OFFSET  DIS_FL 
CALL  ADD_LIB 

MOV  SI, OFFSET  CF_FL 
MOV  AL, CF_CON 
CALL  ADD_LIB 
MOV  SI, OFFSET  RF_FL 
MOV  AL,RF_CON 
CALL  ADD_LIB 

CMP  SOU_CON , 1 
JNZ  CLP103 

MOV  SI, OFFSET  DCD_FL 

MOV  AL,DCD_CON 

CMP  DCD_CON , 4 

JZ  CLP2 

CMP  DCD_CON , 1 

JZ  CLP2 

CMP  MOD_CON , 2 

JNZ  CLP3 

CMP  DCD_CON , 3 

JZ  CLP3 

ADD  AL, ECD  CON 
INC  AL 
JMP  CLP2 
CLP3 : 

MOV  AL, ECD  CON 
CLP2 : 

CALL  ADD_LIB 
CLP103: 

MOV  SI, OFFSET  DEMOD_FL 
CALL  ADJUST_DEMOD 
CALL  ADD_LIB 

MOV  SI, OFFSET  CHL_FL 
MOV  AL, CHL_CON 
CMP  AL, 3 
JNZ  CLP4 
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ADD  AL, 3 
CLP4 : 

CALL  ADD_LIB 

ADD  DX , A6_LENGTH 
MOV  SI , OFFSET  A7 
MOV  CX, A7_LENGTH 
REP  MOVSB 
MOV  SI, OFFSET  A6 
MOV  [SI],DL 
RET 


ADJUST_DEMOD: 

MOV  AL, DEMOD_CON 
CMP  AL, 2 
JNZ  CLP9 
ADD  AL , MOD_CON 
INC  AL 
CLP9 : 

RET 

CREATE_LIB  ENDP 

ADD_LIB  PROC  NEAR 
MOV  CL, [SI] 

XOR  CH,CH 
INC  SI 
ALP1: 

CMP  AL, [SI] 

JZ  ALP2 
ADD  SI, 3 
LOOP  ALP1 
RET 
ALP2 : 

MOV  SI,[SI+1] 

MOV  CL, [SI] 

INC  SI 
ADD  DX, CX 
REP  MOVSB 
RET 

ADD_LIB  ENDP 

GENERATE_UNIVERSE  PROC  NEAR 
MOV  DX, OFFSET  UNIVERSE_Q 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
MOV  CX, INT_COUNT 
MOV  BX,FILE_HANDLE 
MOV  DX, OFFSET  DECLARE_INT 
CALL  WRITE_TO_FILE 
MOV  CX, 15 

MOV  BX , FILE_HANDLE 
MOV  DX, OFFSET  C_OVERHEAD 
CALL  WRITE  TO  FILE 


MOV  CX,INT_COUNTl 

MOV  BX,FILE_HANDLE 

MOV  DX, OFFSET  DECLARE_INT1 

CALL  WRITE_TO_FILE 

MOV  CX , STAR  COUNT 

MOV  BX, FILE~HANDLE 

MOV  DX, OFFSET  STAR_PROGRAM 

CALL  WRITE_TO_FILE 

MOV  CX , CONNECT_COUNT 

MOV  BX , FILE_HANDLE 

MOV  DX, OFFSET  CONNE CT_PROGRAM 

CALL  WRITE_TO_FILE 

MOV  CX, 15 

MOV  BX , FILE_HANDLE 
MOV  DX, OFFSET  C_END 
CALL  WRITE_TO_FI LE 
MOV  BX, FILE_HANDLE 
CALL  CLOSE_FILE 
RET 

GENERATE_UNIVERSE  ENDP 

STAR_GENERATOR  PROC  NEAR 
XOR  AL, AL 
XOR  AH, AH 

MOV  ERROR_COUNTl,AX 

MOV  AH , SOU_CON 

XOR  DX, DX 

MOV  SI, OFFSET  SBU 

MOV  DI, OFFSET  STAR_PROGRAM 

MOV  BX, OFFSET  STAR_PO INTER 

CALL  ONE_LINE_STAR 

CMP  MOD_CON , 9 
JNZ  SGP97 
CMP  CHL_CON , 3 
JNZ  SGP98 
SGP97 : 

MOV  AL, 1 
MOV  AH , ECD_CON 
CALL  ONE_LINE_STAR 
CALL  ERROR_P ATH 1 
SGP98 : 

CMP  MOD_CON , 9 
JZ  SGP95 
MOV  AL, 2 
MOV  AH , MOD_CON 
CALL  ONE_LINE_STAR 
SGP95: 

MOV  AL, 3 

MOV  AH , CF_CON 

CALL  ONE_LINE_STAR 

MOV  AL, 4 

MOV  AH , CHL_CON 
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CALL  ONE_LINE_STAR 
MOV  AL, 5 
MOV  AH , RF_CON 
CALL  ONE_LINE_STAR 

CMP  MOD_CON , 9 
JZ  SGP96 

CALL  ADJUST_DEMOD 
MOV  AH, AL 
MOV  AL, 6 

CALL  ONE_LINE_STAR 
SGP96: 

CMP  MOD_CON , 9 
JNZ  SGP997 
CMP  CHL_CON , 3 
JNZ  SGP998 
SGP997: 

MOV  AL, 7 
MOV  AH , DCD_CON 
CALL  ONE_LINE_STAR 
SGP998 : 

MOV  AL,  8 
MOV  AH, 1 
CMP  MOD_CON , 9 
JNZ  SGP94 
CMP  SOU_CON , 1 
JZ  SGP94 
MOV  AH , MOD_CON 
SGP94 : 

CALL  ONE_LINE_STAR 

CMP  CHL_CON , 1 
JZ  SGP1 
CMP  CHL_CON , 3 
JZ  SGP1 

MOV  CX , STAR_NOISE_LENGTH 
ADD  DX , STAR_NOISE_LENGTH 
MOV  SI, OFFSET  STAR_NOISE 
REP  MOVSB 
SGP1: 

MOV  BYTE  PTR  ES : [ DI ] , 0 
MOV  ES : STAR_COUNT , DX 
RET 

STAR_GENERATOR  ENDP 

ERROR_PATH 1  PROC  NEAR 
PUSH  SI 
PUSH  DI 
MOV  SI , DI 
DEC  SI 
DEC  SI 
EP12 : 

DEC  SI 


CMP  SI, OFFSET  STAR_PROGRAM 
JZ  EP19 

CMP  BYTE  PTR  ES:[SI],OAH 
JNZ  EP12 
ADD  SI, 6 
JMP  EP18 
EP19: 

ADD  SI, 5 
EP18: 

MOV  DI, OFFSET  ERROR_PROGRAMl 
PUSH  SI 

MOV  CX,ERROR_PC3 
MOV  SI, OFFSET  ERROR_P3 
MOV  ERROR_COUNTl , CX 
REP  MOVSB 
POP  SI 

INC  ERROR_COUNT 1 
MOVSB 
EP13 : 

MOVSB 

INC  ERROR_COUNT 1 

CMP  BYTE  PTR  DS:[SI],22H 

JNZ  EP13 

MOVSB 

INC  ERROR_COUNTi 

MOV  CX,ERROR_^Cl 

ADD  ERROP_COUNTl,CX 

MOV  SI, OFFSET  ERROR__Pl 

REP  MOVSB 

PUSH  DX 

XOR  DX, DX 

CALL  ADD_FIFO 

ADD  ERROR_COUNTl , DX 

POP  DX 

MOV  CX , ERROR_PC2 

ADD  ERROR_COUNTl , CX 

MOV  SI, OFFSET  ERROR_P2 

REP  MOVSB 

POP  DI 

POP  SI 

RET 

ERRORJPATH1  ENDP 

ONE_LINE_STAR  PROC  NEAR 
OLS4: 

CMP  [SI ] , AL 
JZ  OLS2 
JAE  OLS15 
OLS7 : 

CMP  WORD  PTR  [SI ] , OAODH 
JZ  OLS16 
INC  SI 
JMP  OLS7 
OLS16: 

INC  SI 
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INC  SI 

CMP  WORD  PTR  [SI],"$$" 
JNZ  OLS4 
JMP  OLS14 
OLS15: 

MOV  WORD  PTR  [BX]  , OFFFFH 
INC  BX 
INC  BX 

CMP  WORD  PTR  [SI] , "$$" 
JNZ  OLS98 
OLS14 : 

STC 
RET 
OLS98 : 

CLC 
RET 
OLS2 : 

INC  SI 

CMP  BYTE  PTR  [SI],"  " 

JZ  OLS2 
CMP  [SI], AH 
JNZ  OLS3 
OLS5: 

INC  SI 

CMP  BYTE  PTR  [SI],"  " 

JZ  OLS5 
MOV  [BX],DI 
INC  BX 
INC  BX 
OLS6: 

INC  DX 
MOVSB 

CMP  WORD  PTR  [SI ] , OAODH 
JNZ  OLS6 
INC  DX 
INC  DX 
MOVSW 
OLS12 : 

CMP  [SI] , AL 
JNZ  OLS9 
OLS11 : 

INC  SI 

CMP  WORD  PTR  [SI], OAODH 
JNZ  OLS11 
INC  SI 
INC  SI 
JMP  OLS12 
OLS9: 

CMP  WORD  PTR  [SI ],"$$" 
JNZ  OLSIO 
STC 
RET 
OLSIO: 

CLC 

RET 
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0LS3: 

INC  SI 

CMP  WORD  PTR  [SI ]  , OAODH 

JNZ  OLS3 

INC  SI 

INC  SI 

JMP  OLS4 

ONE_LINE_STAR  ENDP 

READ_STAR_BASE  PROC  NEAR 
CALL  FILE_PREPARE2 
MOV  DX, OFFSET  STAR_BASE_DAT 
CALL  OPEN_FILE_READ 
MOV  FILE_HANDLE, AX 
MOV  CX, 4000 
MOV  BX , FILE_HANDLE 
MOV  DX, OFFSET  SBU 
CALL  READ_FROM_F I LE 
MOV  BX , FILE_HANDLE 
CALL  CLOSE_FILE 
RET 

READ__STAR_BASE  ENDP 

INTEGER_DECLARE  PROC  NEAR 
MOV  SI, OFFSET  Cl+1 
MOV  DL, [SI-1] 

XOR  DH, DH 

MOV  DI, OFFSET  DECLARE_INT 
MOV  CX, DX 
REP  MOVSB 

MOV  SI, OFFSET  STAR_PROGRAM 
ID2: 

CMP  WORD  PTR  [SI] , "ts" 

JNZ  ID1 

CMP  WORD  PTR  [SI+2],"ra" 

JNZ  ID1 

ID3 : 

INC  SI 

CMP  BYTE  PTR  [SI],0DH 
JZ  ID1 

CMP  BYTE  PTR  [SI],"&" 

JNZ  ID3 

MOV  WORD  PTR  ES: [DI] , "ni" 
MOV  WORD  PTR  ES:[DI+2],"  t" 
ADD  DI , 4 
ADD  DX, 4 
ID4 : 

INC  SI 

CMP  BYTE  PTR  [SI],"," 

JZ  ID5 
MOV  AL, [SI] 

MOV  ES: [DI] , AL 
INC  DI 
INC  DX 
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JMP  ID4 


ID5: 

CALL  REPLACE_STRING 
MOV  BYTE  PTR  ES : [DI] , " ; " 

MOV  WORD  PTR  ES: [DI+1] , OAODH 
ADD  DI ,  3 
ADD  DX, 3 
ID6: 

INC  SI 

CMP  BYTE  PTR  [SI],ODH 
JNZ  ID6 

ID1: 

INC  SI 

CMP  BYTE  PTR  [SI],0 
JZ  ID10 
JMP  ID2 
ID10: 

MOV  ES : INT_COUNT , DX 
RET 

INTEGER_DECLARE  ENDP 

REPLACE_STRING  PROC  NEAR 
PUSH  SI 

MOV  SI, OFFSET  Dl 
XOR  CH,CH 
MOV  CL, [SI] 

INC  SI 
SPl: 

PUSH  SI 
PUSH  DI 
PUSH  CX 
XOR  CH, CH 
MOV  CL, [SI] 

MOV  SI, [SI+1] 

SP3 : 

DEC  DI 
MOV  AL, [SI] 

CMP  AL,ES: [DI] 

JNZ  SP2 
INC  SI 
LOOP  SP3 
POP  CX 
POP  DI 
POP  SI 
JMP  SP4 
SP2 : 

POP  CX 
POP  DI 
POP  SI 
ADD  SI, 3 
LOOP  SPl 
POP  SI 
RET 
SP4 : 
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MOV  CL, [SI] 

XOR  CH, CH 
ADD  CX, 7 
SUB  DI,CX 
SUB  DX,CX 
POP  SI 
RET 

REPLACE_STRING  ENDP 

INTEGER_DECLARE 1  PROC  NEAR 
XOR  DX,DX 

MOV  SI, OFFSET  STAR_PROGRAM 
MOV  DI, OFFSET  DECLARE_INT1 
ID22: 

CMP  WORD  PTR  [SI] , "ts" 

JNZ  ID21 

CMP  WORD  PTR  [SI+2 ] , "ra" 
JNZ  ID21 
XOR  AH, AH 

ID23: 


INC 

SI 

CMP 

BYTE 

PTR 

[SI] , ODH 

JZ  ID21 

CMP 

WORD 

PTR 

[SI] ,2C22H 

JNZ 

ID23 

CMP 

AH,  1 

JZ  ID23 

MOV 

AH,  1 

MOV 

WORD 

PTR 

ES: [DI] ,"ni" 

MOV 

WORD 

PTR 

ES: [DI+2 ] , "  t" 

ADD 

DI,4 

ADD 

DX,  4 

INC 

SI 

ID24: 

INC 

SI 

CMP 

BYTE 

PTR 

[SI],"," 

JZ  ID25 

MOV 

AL, [SI] 

MOV 

ES: [DI] , AL 

INC 

DI 

INC 

DX 

JMP 

ID24 

ID25: 

MOV 

WORD 

PTR 

ES: [DI] ,") (" 

MOV 

BYTE 

PTR 

ES: [DI+2] ,"?" 

MOV 

WORD 

PTR 

ES: [DI+3 ] , OAODH 

ADD 

DI ,  5 

ADD 

DX,  5 

ID26: 

INC 

SI 

CMP 

BYTE 

PTR 

[SI] , ODH 

JNZ 

ID26 

ID21: 
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INC  SI 

CMP  BYTE  PTR  [SI],0 
JZ  ID30 
JMP  ID22 
ID30: 

MOV  SI, OFFSET  C2+2 
MOV  CX, [SI-2 ] 

ADD  DX,CX 
REP  MOVSB 

MOV  ES:INT_COUNTl,DX 
RET 

INTEGER_DECLARE1  ENDP 

CONNECTJ3ENERATOR  PROC  NEAR 
XOR  DX,DX 
XOR  AH, AH 

MOV  SI, OFFSET  STAR_PROGRAM 
MOV  DI, OFFSET  CONNE CT_PROGRAM 
CGI: 

CMP  WORD  PTR  [SI],"ts" 

JNZ  CG2 

CMP  WORD  PTR  [SI+2] , "ra" 

JNZ  CG2 

CG3: 

INC  SI 

CMP  BYTE  PTR  [SI],ODH 
JZ  CG2 

CMP  BYTE  PTR  [SI],22H 
JNZ  CG3 
CMP  AH, 0 
JZ  CG9 

MOV  WORD  PTR  ES : [ DI ] , " , 0” 
MOV  BYTE  PTR  ES: [DI+2] , 22H 
ADD  DI , 3 
ADD  DX, 3 
PUSH  SI 
CG8 : 

INC  SI 

CMP  BYTE  PTR  [SI],"," 

JZ  CG7 
MOV  AL, [SI] 

MOV  ES: [DI] ,AL 
INC  DI 
INC  DX 
JMP  CG8 
CG7 : 

CALL  ADD_S  ECON D_ENTR Y 
POP  SI 
CG9 : 

CALL  ADD_FIRST_ENTRY 
CG4 : 

INC  SI 

CMP  BYTE  PTR  [SI ],"," 

JZ  CG5 
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MOV  AL, [SI] 

MOV  ES: [DI] , AL 
INC  DI 
INC  DX 
JMP  CG4 
CG5: 

MOV  BYTE  PTR  ES : [DI ] , "  ,  " 
INC  DI 
INC  DX 
CG6: 

INC  SI 

CMP  BYTE  PTR  [SI],ODH 
JNZ  CG6 

CG2: 

INC  SI 

CMP  BYTE  PTR  [SI],0 
JZ  CG10 

CMP  WORD  PTR  ES: [DI-4] ,"ya" 
JNZ  CG191 

CMP  WORD  PTR  ES: [DI-6] , "lpH 
JNZ  CG191 

CMP  WORD  PTR  ES: [DI-8] , Msi" 
JNZ  CG191 

CMP  BYTE  PTR  ES: [DI-9] , "D" 
JZ  CGIO 
CG191: 

CMP  WORD  PTR  ES: [DI-4] , "kn" 
JNZ  CG192 

CMP  WORD  PTR  ES: [DI-6] ,"iS" 
JZ  CGIO 
CG192: 

MOV  CX, OFFSET  CGI 
JMP  CX 
CGIO: 

DEC  DI 
DEC  DX 

CMP  BYTE  PTR  ES:[DI],OAH 
JNZ  CGIO 
INC  DI 
INC  DX 

CMP  CHL_CON , 2 
JZ  CG9098 
CMP  CHL_CON , 4 
JNZ  CG901 
CG9098 : 

MOV  CX , ADDER_LENGTH 
ADD  DX , ADDER_LENGTH 
MOV  SI, OFFSET  ADDER_LINE 
REP  MOVSB 
CALL  ADD_FIFO 
MOV  CX , ADDER_LENGTH 1 
ADD  DX , ADDER_LENGTH1 
MOV  SI, OFFSET  ADDER_LINE1 
REP  MOVSB 
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CG901 


CMP  ERR0R_C0UNT1 , 0 
JZ  CG98 

ADD  DX,ERR0R_C0UNT1 
MOV  CX , ERROR_COUNT 1 
MOV  SI, OFFSET  ERROR_PROGRAM 1 
REP  MOVSB 
CG98 : 

MOV  ES:CONNECT_COUNT,DX 
RET 


ADD  FIRST  ENTRY: 


MOV 

AH,  1 

MOV 

WORD 

PTR 

MOV 

WORD 

PTR 

MOV 

WORD 

PTR 

MOV 

WORD 

PTR 

MOV 

BYTE 

PTR 

ADD 

DI ,  9 

ADD 

DX,  9 

RET 

ES: [DI] , "oc" 
ES: [DI+2] , "nnM 
ES: [DI+4 ] , "ce" 
ES: [DI+6] , " (t” 
ES: [DI+8 ] , 22H 


ADD_SECOND_ENTRY : 

MOV  WORD  PTR  ES : [ DI ] , "0 , " 
MOV  BYTE  PTR  ES : [ DI+2 ] , " , " 
ADD  DI , 3 
ADD  DX, 3 


CALL  ADD  FIFO 


MOV  WORD 
MOV  WORD 
MOV  BYTE 
MOV  WORD 
MOV  WORD 
ADD  DI , 9 
ADD  DX, 9 
RET 


PTR  ES: [DI] ,"F*" 

PTR  ES: [DI+2] , "FI" 
PTR  ES: [ DI+4 ] , "O" 
PTR  ES:  [DI+5] 

PTR  ES : [ DI+7 ] , OAODH 


ADD_FIFO: 

MOV  SI , FIFO_POINTER 
XOR  AH, AH 
MOV  AL, [SI] 

INC  FIFO_POINTER 
CMP  AL, 10 
JC  FIFOl 
MOV  BL, 10 
DIV  BL 

CALL  ADD_ONE_DIGIT 
MOV  AL, AH 
FIFOl: 
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CALL  ADD_ONE_DIGIT 
RET 


ADD_ONE_DIGIT: 

ADD  AL , 3  OH 
MOV  ES: [DI] , AL 
INC  DI 
INC  DX 
RET 

CONNECT_GENERATOR  ENDP 

CODE_CONVERSION_ALL  PROC  NEAR 
MOV  SI, OFFSET  SBU 
MOV  DL, 10 
PAS  5: 

CALL  CODE_CONVERSION 
CALL  CODE_CONVERS ION 
PAS  3 : 

CMP  WORD  PTR  [SI ] , OAODH 
JZ  PAS2 
INC  SI 
JMP  PAS 3 
PAS2 : 

CMP  WORD  PTR  [SI+2  ]  ,  •'$$" 
JNZ  PAS 4 
RET 
PAS4: 

INC  SI 
INC  SI 
JMP  PAS 5 

CODE_CONVERSION_ALL  ENDP 

CODE_CONVERSION  PROC  NEAR 
XOR  AH, AH 
MOV  AL, [SI] 

SUB  AL, 3 OH 

CMP  BYTE  PTR  [SI+1],"  " 

JZ  PAS1 
MUL  DL 

SUB  BYTE  PTR  [SI+1],30H 
ADD  AL, [SI+1] 

MOV  BYTE  PTR  [SI+1],"  " 
MOV  [SI ] , AL 
INC  SI 
INC  SI 
INC  SI 
RET 
PAS1: 

MOV  [SI] ,AL 
INC  SI 
INC  SI 
RET 

CODE  CONVERSION  ENDP 


LINK_PARA_FILE  PROC  NEAR 
CALL  CREATE_STOP 
CALL  CREATE_SOU 
CALL  CREATE_CF 
CALL  CREATE_RF 
CALL  CREATE_CHL 
CALL  CREATE_COD 
CALL  CREATE _MOD 
RET 

LINK_PARA_FI LE  ENDP 

CREATE_COD  PROC  NEAR 
MOV  DI, OFFSET  SBU 
CMP  ECD_CON , 1 
JZ  CCOD4 
CMP  ECD_CON , 2 
JZ  CCOD1 
CMP  ECD_CON , 3 
JZ  CCOD1 
CMP  ECD_CON,5 
JZ  CCOD2 
RET 
CCOD4 : 

MOV  WORD  PTR  ES: [DI] # "1+" 

MOV  WORD  PTR  ES : [ DI+2 ]  ,  "  0  .  " 
MOV  WORD  PTR  ES : [ DI+4 ] , "+E" 
MOV  BYTE  PTR  ES : [DI+6] , "0" 
MOV  WORD  PTR  ES : [ DI+7 ] , OAODH 
MOV  AX, 9 
JMP  CCOD3 
CCOD2 : 

MOV  WORD  PTR  ES:[DI],"0+" 

MOV  WORD  PTR  ES : [ DI+2 ] , " 6 . " 
MOV  WORD  PTR  ES : [DI+4 ] , "+E" 
MOV  BYTE  PTR  ES : [DI+6] , "0" 
MOV  WORD  PTR  ES: [DI+7] , OAODH 
MOV  AX, 9 
JMP  CCOD3 
CCOD1 : 

MOV  WORD  PTR  ES:[DI],"0+" 

MOV  WORD  PTR  ES : [ DI+2 ] , "5 . " 
MOV  WORD  PTR  ES: [DI+4] , "+E" 
MOV  BYTE  PTR  ES: [DI+6] , H0" 
MOV  WORD  PTR  ES : [DI+7 ], OAODH 
MOV  AX, 9 
CCOD3 : 

PUSH  AX 

MOV  DX, OFFSET  COD_TDT 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
POP  AX 

CALL  FILE_PREPARE3 
RET 

CREATE  COD  ENDP 
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CREATE_MOD  PROC  NEAR 

MOV  SI, OFFSET  M_ARY 
MOV  CL, [SI] 

XOR  CH, CH 
MOV  AL,MOD_CON 
CMP  AL, 9 
JNZ  CMOD3 
CMP  CHL_CON , 3 
JNZ  CMOD3 
MOV  AL, 20 
CMOD3: 

INC  SI 
CMOD1: 

CMP  AL, [SI] 

JZ  CMOD2 
INC  SI 
INC  SI 
LOOP  CMOD1 
RET 
CMOD2: 

XOR  AX, AX 

MOV  DI, OFFSET  SBU 

MOV  BL, [SI+1] 

CALL  TRANSFER_DATA1 
XOR  BL, BL 
CMP  MOD_CON ,10 
JNZ  CMOD32 
MOV  BL, 1 
CMOD32: 

CALL  TRANS FER_DATA1 
PUSH  AX 

MOV  DX, OFFSET  MOD_TDT 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
POP  AX 

CALL  F I LE_PRE PARE 3 
RET 

CREATE_MOD  ENDP 

CREATE_STOP  PROC  NEAR 
XOR  AX, AX 

MOV  SI, OFFSET  STOPJTDTl 
XOR  BL, BL 
MOV  DI, OFFSET  SBU 
CALL  TRANS FER_DATA 
PUSH  AX 

MOV  DX, OFFSET  STOP_TDT 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
POP  AX 

CALL  F I LE_PRE PARE 3 
RET 

CREATE  STOP  ENDP 


CREATE_SOU  PROC  NEAR 

MOV  DX, OFFSET  SOU_CON_TDT 
CALL  CREATE_F I LE 
MOV  FILE_HANDLE , AX 

XOR  AX, AX 
MOV  DI, OFFSET  SBU 
MOV  BL,SOU_CON 
DEC  BL 

CALL  TRANSFER_DATA1 
CALL  FI LE_PRE PARE  3 

XOR  AX, AX 

MOV  SI, OFFSET  SOU_TDTl 
MOV  BL, SOU_CON 
MOV  DI, OFFSET  SBU 
CALL  TRANS FER_DATA 
JAE  CSU1 
RET 
CSU1: 

PUSH  AX 

MOV  DX, OFFSET  SOU_TDT 
CALL  CREATE_F  I  LE 
MOV  FILE_HANDLE , AX 

POP  AX 

CALL  FI LE_PREPARE 3 
RET 

CREATE_SOU  ENDP 

FILTERJTYPE  DB  0 

CREATE_CF  PROC  NEAR 
XOR  AX, AX 
MOV  DI, OFFSET  SBU 
CMP  CF_CON,0 
JZ  CCF2 
MOV  BL, CF_CON 
SUB  BL, 3 
XOR  BH, BH 

MOV  SI, OFFSET  CF_BW_T 
MOV  BL, [SI+BX] 

MOV  CS : FILTER_TYPE , BL 
CALL  TRANSFER_DATA1 
CCF2 : 

CMP  FILTER_TYPE , 2 
JZ  CCF3 

MOV  SI, OFFSET  CF_TDT2 
MOV  BL, CF_CON 
CALL  TRANS FER_DATA 
JAE  CCF1 
RET 
CCF1: 

MOV  BL, CF_CON 
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MOV  SI, OFFSET  CF_TDT1 
CALL  TRANSFER_DATA 
MOV  BL,CF_CON 
MOV  SI, OFFSET  CF_TDT3 
CALL  TRANS FER_DATA 
PUSH  AX 

MOV  DX, OFFSET  CF_TDTA 
CALL  CREATE_FILE 
MOV  FILE_HANDLE, AX 

POP  AX 

CALL  FI LE_PRE PARE  3 
RET 

CCF3 : 

PUSH  AX 

MOV  DX, OFFSET  CF_TDTA 
CALL  CREATE_F I LE 
MOV  FILE_HANDLE , AX 
POP  AX 

CALL  F I LE_PRE PARE 3 

XOR  AX, AX 
MOV  DI, OFFSET  SBU 
MOV  BL,CF_CON 
MOV  SI, OFFSET  CFJTDT4 
CALL  TRANSFER_DATA 
JAE  CCF5 
RET 
CCF5 : 

PUSH  AX 

MOV  DX, OFFSET  CFJTDTB 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
POP  AX 

CALL  F I LE_PRE PARE  3 
RET 

CREATE_CF  ENDP 

CREATE_RF  PROC  NEAR 
XOR  AX, AX 
MOV  DI, OFFSET  SBU 
CMP  RF_CON , 0 
JZ  CRF2 
MOV  BL,RF_CON 
SUB  BL, 3 
XOR  BH, BH 

MOV  SI, OFFSET  CF_BW_T+4 
MOV  AL, [SI+BX] 

MOV  CS : FILTER_TYPE , AL 
ADD  AL, 30H 

MOV  BYTE  PTR  ES:[DI],"+" 

MOV  ES: [DI+1] , AL 

MOV  WORD  PTR  ES : [DI+2 ] , OAODH 
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ADD  DI , 4 
MOV  AX, 4 
CRF2 : 

CMP  FILTER  TYPE, 2 
JZ  CRF3 

MOV  SI, OFFSET  RF_TDT2 
MOV  BL,RF_CON 
CALL  TRANS FER_DATA 
JAE  CRF1 
RET 
CRF1: 

MOV  BL,RF_CON 

MOV  SI, OFFSET  RF_TDT1 

CALL  TRAN S  FER_DAT A 

MOV  BL,RF_CON 

MOV  SI, OFFSET  RF_TDT3 

CALL  TRANS FER_DATA 

PUSH  AX 

MOV  DX, OFFSET  RFJTDTA 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 

POP  AX 

CALL  F I LE_PRE PARE 3 
RET 

CRF3 : 

PUSH  AX 

MOV  DX, OFFSET  RF_TDTA 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
POP  AX 

CALL  F I LE_PRE PARE 3 

XOR  AX, AX 
MOV  DI, OFFSET  SBU 
MOV  BL,RF_CON 
MOV  SI, OFFSET  RFJTDT4 
CALL  TRAN  S  FER_D AT A 
JAE  CRF5 
RET 
CRF5: 

PUSH  AX 

MOV  DX, OFFSET  RFJTDTB 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 
POP  AX 

CALL  FILE_PREPARE3 
RET 

CREATE_RF  ENDP 

CREATE_CHL  PROC  NEAR 
XOR  AX, AX 
MOV  DI, OFFSET  SBU 
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CMP  CHL_CON , 4 
JNZ  CCHL2 
MOV  AL,PM_CON 
ADD  AL,30H 

MOV  BYTE  PTR  ES: [DI] , "+" 

MOV  ES: [DI+1] , AL 
MOV  WORD  PTR  ES: [DI+2] , OAODH 
ADD  DI , 4 
MOV  AX, 4 
CCHL2 : 

MOV  SI, OFFSET  CHL_TDT1 
MOV  BL,CHL_CON 
CALL  TRANS FER_DATA 
JAE  CCHL1 
RET 
CCHL1 : 

PUSH  AX 

MOV  DX, OFFSET  CHL_TDT 
CALL  CRE ATE_F I LE 
MOV  FILE_HANDLE , AX 

POP  AX 

CALL  FILE_PREPARE3 
RET 

CREATE_CHL  ENDP 

TRANS FER_DATA  PROC  NEAR 
XOR  CH,CH 
MOV  CL, [SI] 

INC  SI 
TD2: 

CMP  BL, [SI] 

JZ  TD1 
ADD  SI, 7 
LOOP  TD2 
STC 
RET 
TD1 : 

PUSH  SI 
MOV  CX, [SI+3 ] 

MOV  BX, [SI+5] 

MOV  SI, [SI+1] 

TD15: 

PUSH  BX 

CMP  BYTE  PTR  [SI],0DH 
JNZ  TD3 

CALL  NUMBER_END 
ADD  SI , BX 
MOV  BX, OFFSET  TD16 
JMP  BX 
TD3 : 

CMP  BYTE  PTR  [SI],"-" 

JNZ  TD4 

MOV  BYTE  PTR  ES:[DI],"-" 


145 


JMP  TD5 
TD4 : 

MOV  BYTE  PTR  ES:[DI],"+" 
TD5: 

INC  SI 
INC  DI 
DEC  BX 
INC  AX 

CMP  BYTE  PTR  [SI],"E" 

JNZ  TD6 

MOV  BYTE  PTR  ES:[DI],"0" 
INC  DI 
INC  AX 
TD9 : 

MOVSB 
INC  AX 
DEC  BX 
JMP  TD7 
TD6: 

CMP  BYTE  PTR  [SI] , ODH 
JNZ  TD19 
CALL  NUMBER_END 
ADD  SI , BX 
MOV  BX, OFFSET  TD16 
JMP  BX 
TD19: 

MOVSB 
INC  AX 
DEC  BX 
TD8 : 

CMP  BYTE  PTR  [SI],"E" 

JZ  TD9 

CMP  BYTE  PTR  [SI], ODH 
JNZ  TD20 
CALL  NUMBER_END1 
ADD  SI , BX 
MOV  BX, OFFSET  TD16 
JMP  BX 
TD20: 

MOVSB 
INC  AX 
DEC  BX 
JMP  TD8 
TD7 : 

CMP  BYTE  PTR  [SI],"-" 

JNZ  TD10 

MOV  BYTE  PTR  ES:[DI],"-" 
JMP  TD11 
TD10: 

MOV  BYTE  PTR  ES:[DI],"+" 
TD11: 

INC  SI 
INC  DI 
DEC  BX 
INC  AX 
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CMP  BYTE  PTR  [SI],ODH 
JNZ  TD17 
CALL  NUMBER_END 
ADO  SI , BX 
JMP  TD16 
TD17: 

MOVSB 
INC  AX 
DEC  BX 

CMP  BYTE  PTR  [SI],ODH 
JNZ  TD17 

CALL  NUMBER_END1 
ADD  SI , BX 
TD16: 

POP  BX 
DEC  CX 
CMP  CX,0 
JZ  TD22 

MOV  DX, OFFSET  TD15 
JMP  DX 
TD22: 

POP  SI 

CLC 

RET 

TRANS FER_DATA  ENDP 

TRANSFER_DATA1  PROC  NEAR 
ADD  BL,30H 

MOV  BYTE  PTR  ES:[DI],"+" 

MOV  ES: [DI+1] ,BL 

MOV  WORD  PTR  ES : [ DI+2 ] , OAODH 

ADD  DI,4 

ADD  AX, 4 

RET 

TRANS FER_DATA1  ENDP 

NUMBER_END  PROC  NEAR 

MOV  BYTE  PTR  ES:[DI],"0" 

INC  AX 
INC  DI 

NUMBER_END1 : 

MOVSB 
INC  AX 
DEC  BX 

MOV  BYTE  PTR  ES : [ DI ] , OAH 
INC  AX 
INC  DI 
RET 

NUMBER_END  ENDP 

NET_PARA_FILE  PROC  NEAR 
CALL  CREATE_MA 
CALL  CREATE_STAR 
CALL  CRE ATE_U  LOO  P 
CALL  CREATE  BLOOP 
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RET 

NET_PARA_F I LE  ENDP 

CREATE_MA  PROC  NEAR 
CMP  NET_CON,2 
JZ  CMA1 
RET 
CMAl: 

CMP  MA_CON , 1 
JZ  CMA31 
CMP  MA_CON , 2 
JZ  CMA32 

MOV  DX, OFFSET  CSMA_TDT 
JMP  CMA33 
CMA32 : 

MOV  DX, OFFSET  TREE_TDT 
JMP  CMA33 
CMA31: 

MOV  DX, OFFSET  ALOHA_TDT 
CMA33 : 

CALL  CREATE_F I LE 
MOV  FILE_HANDLE,AX 

XOR  AX, AX 
XOR  BL,BL 

MOV  SI, OFFSET  MA_TDT1 
MOV  DI, OFFSET  SBU 
CALL  TRAN S  FER_DATA 
XOR  BL,BL 

MOV  SI, OFFSET  MA_TDT2 
CSLL  TRANSFER_DATA 
XOR  BL,BL 

MOV  SI, OFFSET  MA_TDT3 
CALL  TRANS FER_DATA 
MOV  BL , NET_OD_MA 
CALL  TRANS FER_DATA1 
MOV  BL, REAL_TIME 
CALL  TRANSFER_DATA1 

CMP  MA_CON , 2 
JZ  CMP76 
CMP  MA_CON , 1 
JZ  CMP77 

MOV  SI, OFFSET  MA_TDT5 
JMP  CMP78 
CMP77 : 

MOV  SI, OFFSET  MA_TDT4 
CMP78 : 

XOR  BL, BL 
CALL  TRANSFER_DATA 
CMP76 : 

CALL  FI LE_PREPARE 3 
RET 

CREATE  MA  ENDP 


CREATE_STAR  PROC  NEAR 
CMP  NET_CON , 1 
JZ  CSR1 
RET 
CSR1: 

CMP  SAF_TP,1 
JZ  CSR2 
RET 
CSR2: 

MOV  DX, OFFSET  STAR_TDT 
CALL  CREATE_F I LE 
MOV  FILE_HANDLE , AX 

CALL  SAVE_SF 
XOR  BL, BL 

MOV  SI, OFFSET  S_TDT1 
CALL  TRANSFER_DATA 
XOR  BL, BL 

MOV  SI, OFFSET  S_TDT3 
CALL  TRANS FER_DATA 
CALL  SAVE_SF2 

CALL  FILE_PREPARE3 
RET 

CREATE_STAR  ENDP 

CREATE_ULOOP  PROC  NEAR 
CMP  NET_CON , 1 
JZ  CUL1 
RET 
CUL1: 

CMP  SAF_TP , 2 
JZ  CUL2 
RET 
CUL2: 

MOV  DX, OFFSET  ULOOP_TDT 
CALL  CREATE_FILE 
MOV  FILE_HANDLE , AX 

CALL  SAVE_SF 
XOR  BL, BL 

MOV  SI, OFFSET  U_TDT1 
CALL  TRAN S  FER_DAT A 
CALL  SAVE_SF2 

CALL  FILE_PREPARE3 
RET 

CRE ATE_U LOO P  ENDP 

CREATE_BLOOP  PROC  NEAR 
CMP  NET  CON, 1 
JZ  CBL1~ 

RET 

CBL1: 


CMP  SAF_TP,3 
JZ  CBL2 
RET 
CBL2: 

MOV  DX, OFFSET  BLOOP_TDT 
CALL  CREATE_F I LE 
MOV  FILE_HANDLE , AX 

CALL  SAVE_SF 
XOR  BL,BL 

MOV  SI, OFFSET  B_TDT1 
CALL  TRANS FER_DATA 
XOR  BL,BL 

MOV  SI, OFFSET  B_TDT3 
CALL  TRAN S  FER_DATA 
CALL  SAVE_SF2 

CALL  F I LE_PRE PARE  3 
RET 

CREATE_BLOOP  ENDP 

SAVE_SF  PROC  NEAR 
XOR  AX, AX 
XOR  BL,BL 

MOV  SI, OFFSET  AFS_TDT1 
MOV  DI, OFFSET  SBU 
CALL  TRANS  FER_DATA 
XOR  BL, BL 

MOV  SI, OFFSET  S_TDT2 
CALL  TRANS FER_DATA 
MOV  SI, OFFSET  AFS_TDT2 
XOR  BL, BL 
CALL  TRANS FER_DATA 
RET 

SAVE_SF  ENDP 

SAVE_SF2  PROC  NEAR 

MOV  SI, OFFSET  MA_TDT3 
XOR  BL, BL 
CALL  TRANS  FER_DAT A 
MOV  BL, NET_OD_SAF 
CALL  TRANSFER_DATA1 
MOV  BL, REAL_TIME 
CALL  TRANSFER_DATA1 
RET 

SAVE_SF2  ENDP 

F I LE_PRE PARE 2  PROC  NEAR 
PUSH  DS 
MOV  AX, CODE 
MOV  DS, AX 

MOV  SI, OFFSET  ERROR_HANDLER2 
CALL  SET_RETURN_ADDRESS 
CALL  SET_CRITICAL_ADDRESS 
POP  DS 


150 


RET 

FILE_PREPARE2  ENDP 

F I LE_PRE PARE 3  PROC  NEAR 
MOV  CX,AX 
MOV  BX, FILE_HANDLE 
MOV  DX, OFFSET  SBU 
CALL  WRITE_TO_FILE 
MOV  BX, FILE_HANDLE 
CALL  C LOS E_ FILE 
RET 

F I LE_PRE PARE 3  ENDP 

ERROR_HANDLER2  PROC  NEAR 
MOV  AX, CONST 
MOV  DS , AX 
MOV  ES, AX 

MOV  SP,STACK_POINTERl 
MOV  AX, OFFSET  RS7 
JMP  AX 
RET 

ERROR_HANDLER2  ENDP 
CODE  ENDS 
END 


